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Chère lectrice! 
Cher lecteur! 
Chère programmeuse 


Cher programmeur! 


Vous avez en main le livre ‘Programmes BASIC' et vous voudriez 
peut-être pouvoir porter un premier jugement sur cet ouvrage. 
C'est pourquoi vous avez déjà jeté un coup d'oeil à la table des 
matières, après quoi vous vous préparez à sauter l'introduction et 
à vous diriger immédiatement vers la pièce tranquille où vous vous 


livrez à la programmation ou à l'écriture de programmes sur votre 


CPC 464. 


J'aimerais toutefois pouvoir dire quelques mots avant que vous ne 
vous lanciez dans votre occupation favorite. 

Le principe qui a en effet présidé à la réalisation de cette 
collection de programmes est différent de ce qu'on pourrait 
imaginer au premier abord. Cette collection de programmes ne 
comprend pas que des programmes mais également 40 pages de textes. 
La place occupée par ce texte n'a pas pour but de rémédier à un 
manque d'idées: si j'avais publié tous les programmes que j'ai 
réalisés, cet ouvrage comporterait autour de 400 pages!. Le texte 
est donc là pour que vous ne vous contentiez pas 

de taper des 

programmes à longueur de journée mais pour que vous puissiez aussi 
apprendre un certain nombre de choses sur le CPC H64 en tapant ces 


programmes. 


Nous n'avons pas expliqué chaque ligne de programme pour ne pas 


mettre votre patience à trop rude épreuve et parce que nous n'en 


ne ” 


avions pas la place, mais nous attirons votre attention dans les 
textes introductifs sur des détails intéressants et les programmes 


sont également richement pourvus en lignes REM explicatives. 


En ce qui concerne le contenu, c'est surtout le côté pratique pour 
l'utilisateur qui a été favorisé, soit que vous vouliez éditer de 
la musique, du graphisme ou des textes, soit que vous ayez besoin 
de gérer votre stock de disques ou les résultats du championnat de 
football. Un autre point important de cet ouvrage est enfin de 
vous permettre d'avoir une idée de la façon dont travaille votre 
CPC. Le "désassembleur" ou la "liste des références de variables" 


s 


ne constituent que deux exemples à cet égard. 


En tout cas, et ce sera ma conclusion, nous souhaitons que vous 
aurez beaucoup de plaisir à pénétrer plus profondément dans 
l'univers des ordinateurs en général et du CPC 464 en particulier 


et que, peut-être, vous deviendrez grâce à cette collection de 


programmes un programmeur en herbe. 


L'auteur des programmes et du texte vous souhaite encore une fois 


beaucoup de plaisir dans votre travail avec cet ouvrage. 


Mémoire 1 


Si nous examinons à l'écran le résultat de ce programme, nous 
constatons que la Zone de la mémoire dont nous demandons le 
contenu avec l'instruction "PEEK", n'est pas vide, puisqu'elle ne 


contient pas que des O0. 


Ce que nous voyons à l'écran nous semble une suite de chiffres 
sans signification, mais nous allons pouvoir constater que 
derrière ces chiffres se cachent aussi des lettres et des 


caractères très précis. Faisons une petite expérience: 


Entrez dans votre CPC: ‘PRINT ASC("I!")' (ENTER). Résultat: 33. 
Donc, derrière le signe d'exclamation se cache pour l'ordinateur 
le nombre 33. Faisons maintenant l'expérience dans l'autre sens; 
entrez: "PRINT CHR$(33)' (ENTER). 

Résultat: '!'. Nous avons donc demandé à l'ordinateur de convertir 
à nouveau le nombre 33 en un caractère. Le résultat est notre 


signe d'exclamation! 


Nous pouvons maintenant apprendre à interpréter de même la masse 
de chiffres que nous avons obtenue avec le programme Mémoire 1. 
Pour le vérifier, veuillez entrer à la suite le programme "Mémoire 


2'. 


Indication pour l'utilisation du programme ‘Mémoire 1': 


Eviter de choisir des adresses de début et de fin de la zone de la 


mémoire distantes de plus de 150 octets, de façon à ce que toutes 
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les données que vous voulez examiner apparaissent sur une seule 


page d'écran. 
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Mémoire 2 


Une fois que vous avez tapé ce programme et que vous l'avez lancé 
avec RUN, vous pouvez constater, suivant ce que vous faites, soit 
qu'il ne se passe rien, soit qu'il ne se passe que des évènements 
imprévus (l'écran se vide, le mode change, PEN et PAPER se 


modifient, etc...). Pourquoi? 


Comme nous vous l'indiquons également dans d'autres programmes de 
ce recueil, il y a des caractères directement représentables (de 
CHR$(32)=espace à  CHR$(126)=ligne zig-zag et même jusqu'à 
CHR$(255) si on compte les caractères graphiques) et des 
caractères qu'il n'est pas si facile de faire afficher (par 
exemple CHR$(2)=déconnexion du curseur texte ou CHR$(7)=faire 


entendre un bip, etc...). 


Il nous faut donc écrire maintenant encore un troisième programme 
qui n'affichera à l'écran que les caractères ayant une fonction 
purement graphique. C'est ainsi que nous aboutissons en complétant 


un peu notre programme au programme Mémoire 3. 


Indication pour l'utilisation du programme Mémoire 2: 

Si vous ne voyez à l'écran plus aucune forme reconnaissable et que 
vous vouliez malgré tout continuer à utiliser le programme que 
vous venez d'entrer, il vous faut faire preuve d'un peu d'astuce: 
ouvrez le manuel de votre ordinateur au Chapitre 9 et essayez 
d'annuler les facteurs perturbateurs en entrant PRINT et le code 


CHR$ qui convient. 
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Mémoire 3 


En entrant ce programme vous faites d'une pierre deux coups: 
premièrement l'affichage à l'écran du contenu de la mémoire 
apparaît sous une forme plus ordonnée (adresse de début de la zone 
examinée, contenu de cette adresse et des 7 octets suivants avec 
chaque fois l'affichage CHR$ correspondant, le tout sur une ligne 
de l'écran) et d'autre part, seuls sont affichés les caractères 
CHR$ représentables (entre 32 = espace et 126 = ligne zig-zag). 
Les caractères non représentables ont été simplement remplacés par 


CHR$(46) = '.'. 


Vous pouvez utiliser ce programme de deux façons: si vous entrez 
simplement l'adresse de début et que vous appuyez ensuite sur la 
touche ENTER, vous verrez uniquement le contenu des 8 octets 
situés à partir de cette adresse. Si par contre, vous appuyez, 
immédiatement après avoir appuyé sur la touche ENTER et pendant 
que l'affichage à l'écran est en train de se constituer, sur une 
touche à fonction de répétition, par exemple la touche espace, 
vous verrez s'afficher à l'écran le contenu des octets suivants, 


toujours affichés par lignes de 8. 


Examinons par exemple où se trouve en mémoire notre programme 
BASIC Mémoire 3. Sur le CPC comme sur tous les ordinateurs, les 
instructions ne sont stockées que sous forme d'un code (=token) 
alors que les mots placés à la suite d'une instruction REM sont 
conservés comme ils ont été écrits. Si vous entrez par exemple 
1006 comme adresse de départ, vous devriez maintenant découvrir le 


mot "octets". Voyez en effet la ligne 140 du listing: 
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140 REM Chaque ligne de l'écran reçoit 


8 octets 


Ceci ne fonctionne évidemment que si vous avez bien entré le 
programme exactement comme il figure sur le listing, sans oublier 


mème un espace. 


Si vous entrez 1006 comme adresse de départ et que vous appuyez 
immédiatement sur la touche espace, vous voyez apparaître la suite 


de notre programme Mémoire 3. 


Indication pour l'utilisation du programme ‘Mémoire 3!': 

Comme vous avez certainement déjà remarqué, les codes 
correspondant au contenu des zones de mémoire que vous pouvez 
examiner avec notre programme ne sont pas indiqués avec le système 
décimal que nous connaissons bien pour l'avoir appris à l'école 
mais avec le système hexadécimal. Il y a à celà deux raisons: la 
première est que le système hexadécimal est le système par 
excellence des fans du langage-machine et de tous ceux qui 
auscultent la mémoire des ordinateurs; et c'est bien ce que nous 
essayons de faire! La deuxième raison est qu'on peut placer plus 
d'informations sur une ligne de O0 caractères avec le système 
hexadécimal qu'on ne le pourrait avec le système décimal (le 
nombre décimal de 3 chiffres '255' devient en hexadécimal un 


nombre de deux chiffres 'FF', de même 65535 (déc.)= FFFF (hexa.). 


Si vous ne connaissez pas encore le système hexadécimal, n'ayez 


aucune crainte, votre CPC vous permet de convertir très aisément 


les nombres décimaux en nombres hexadécimaux avec l'instruction 
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PRINT HEX$(xx). Par exemple PRINT HEX$(65535) vous donnera: FFFF. 
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Memoire 4 


Nous avons examiné jusqu'à présent la mémoire de notre ordinateur 
et nous n'avons trouvé au début que des nombres (Mémoire 1), puis 
des caractères bizarres (Mémoire 2) mais nous avons enfin obtenu 
un affichage formaté des nombres et des caractères représentables 
(Mémoire 3). En examinant avec Mémoire 3 la zone occupée par le 
programme BASIC, et en comparant l'affichage sur la partie gauche 
de l'écran à celui de la partie droite, nous avons bien vu que 
notre programme BASIC ne se compose en fait que de nombres qui 
sont ensuite convertis par le CPC en diverses lettres ou 


caractères. 


Pour comprendre comment celà est possible, il faut savoir comment 
l'ordinateur stocke en mémoire les données et les programmes. Pour 
économiser de la place en mémoire, les instructions sont stockées, 
après que vous les ayez entrées avec ENTER, sous forme 
d'abréviations appelées tokens (voir l'annexe). C'est ainsi que 
l'instruction PRINT qui devrait occuper normalement cinq octets 
puisqu'elle se compose de 5 lettres n'occupe qu'un octet en 


mémoire. 


Mais si vous écrivez ‘“PRINT' dans une ligne REM ou entre 
guillemets, par exemple  PRINT'PRINT", le mot PRINT que 
l'ordinateur ne considérera pas comme une instruction mais comme 
du texte sera stocké lettre pour lettre et occupera bien 5 octets 


en mémoire. 


Si vous essayez maintenant de rechercher grâce à notre programme 
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Mémoire 3 si un mot ou un texte quelconque se trouve dans un 
programme BASIC en mémoire et où il se trouve en mémoire,ceci 
risque de durer très longtemps jusqu'à ce que vous ayez pu 
examiner les 65535 octets de la mémoire. Autant chercher une 


aiguille dans une botte de foin! 


11 faut donc procéder de façon plus systématique et c'est ce que 
permet le programme Mémoire 4! Vous pouvez en effet entrer un mot 
comprenant jusqu'à 6 lettres et vous indiquez ensuite à 
l'ordinateur dans quelle zone il doit chercher cette expression. 
Bien sûr, plus la zone à l'intérieur de laquelle vous lui dites 
d'effectuer cette recherche est grande et plus vous risquez 
d'attendre longtemps. Une fois la recherche effectuée, et si 
l'expression recherchée se trouve bien dans la zone que vous avez 
délimitée, l'ordinateur vous indique l'adresse où figure cette 
expression. Vous pouvez alors vous amuser à modifier avec 
l'instruction POKE votre programme BASIC (employez uniquement des 


codes compris entre 32 et 126 inclus). Par exemple: 


En ligne 10 se trouve le mot 'Examen'. Faites d'abord rechercher à 
quelle adresse se trouve ce mot. Lancez le programme avec RUN, 
entrez 'Examen' (ENTER) et faites rechercher ces lettres dans 
toute la mémoire; entrez N (ENTER) pour répondre à la question 
suivante. Peu de temps après, vous voyez apparaître à l'écran: 
‘Examen' trouvé à l'adresse 374. Si vous tombez sur un nombre 
légèrement différent, ce n'est pas très grave. Appelons la valeur 
obtenue NOMBRE (pour nous NOMBRE=374). Voyons maintenant ce qui se 
trouve en mémoire à l'adresse NOMBRE: PRINT PEEK(NOMBRE) (ne tapez 
pas NOMBRE bien sûr mais la valeur que vous aviez obtenue). 


Résultat: ‘"69'! Or que signifie le code 69: PRINT CHR$(69). 
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Résultat: 'E'! 


Le nombre 69 correspond donc bien à la première lettre du mot 
recherché 'Examen'. Si vous listez la ligne 10, vous y voyez le 
mot ‘Examen'. Si vous placez avec l'instruction POKE une autre 
valeur que 69 à l'adresse NOMBRE, vous allez changer le mot 
figurant à la ligne 10. Essayez par exemple de transformer le 'E' 
en 'G'. Pour savoir quel est le code de la lettre G, utilisez 
l'instruction PRINT ASC(xx): PRINT ASC("G") => 71. Il vous suffit 


donc d'entrer POKE NOMBRE,71 et 'Examen' en ligne 10 est devenu 


"Gxamen'! 


Voici comment vous pouvez grâce à nos petits programmes en 
apprendre un peu plus sur le mode de stockage en mémoire des 
programmes BASIC et avoir une idée peut-être plus précise de la 
complexité d'un ordinateur tel que le CPC. N'oubliez pas que le 


BASIC est le produit de nombreux développements et travaux. 


Mais notre programme ‘Mémoire ' vous révèle également un autre 
aspect des programmes BASIC: le stockage du numéro de ligne. 
Lancez à nouveau le programme avec RUN, entrez le critère de 
recherche 'Examen' (ou ‘Gxamen' si vous avez modifié le programme) 
et faites rechercher cette expression uniquement dans le programme 
en choisissant donc l'option 'P'. Vous verrez peu de temps après 
non seulement l'adresse correspondante mais aussi le numéro de 


ligne correspondant dans notre programme BASIC. 


Le calcul du numéro de ligne est relativement simple, ... à 


condition qu'on sache comment l'effectuer. Tout programme BASIC 


sur le CPC commence normalement en 368. Les adresses 368 et 369 
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contiennent la longueur de la première ligne de notre programme 
('PRINT PEEK (368) => 29. PRINT PEEK (369) => O0. Le calcul de la 
longueur peut être obtenu à partir de ces deux valeurs en 
appliquant la formule suivante: PRINT PEEK(368)+PEEK(369)*256 => 
29. Donc: la première ligne BASIC (y compris les deux octets 368 
et 369 qui en indiquent la longueur) est longue de 35 octets. Vous 
pouvez donc, grâce à cette information, calculer le début de la 
seconde ligne BASIC qui contient également les mêmes informations, 
et ainsi de suite. Or les adresses 370 et 371 contiennent le 
numéro de la première ligne BASIC: PRINT PEEK(370) => 10. PRINT 
PEEK(371) => O0. Calculez maintenant la valeur obtenue: PRINT 
PEEK(370)+PEEK(371)*256 => 10. Donc: le premier numéro de ligne de 


notre programme est 10 et cette ligne comporte 35 octets. 


Ce sont exactement les mêmes calculs qu'effectue encore et 
toujours (à partir de la ligne 160) le CPC pour pouvoir indiquer 
le numéro de ligne lorsqu'il trouve l'expression que vous lui avez 


fait rechercher. 


Mais peut-être en avez-vous à présent assez de la théorie! Passons 


donc au programme ‘Mémoire 5". 
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Quel(s) caractère(s) cherchez-vous 


(longueur inferieure ou egale a 6) ? Examen 


Dans quelle section de la memoire 
faut-il chercher cette suite 

de caracteres 

(/N=dans toute la mémoire 


/P=dans le programme) ? n 


longue trouve a l'adresse 374 


Exemple d'utilisation de Mémoire 4 
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SA PRINT 
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Mémoire 5 


Alors que le programme Mémoire 3 représentait 8 octets par ligne 
(valeurs décimales e 

t caractère CHR$), nous allons maintenant 
avoir un programme plus clair puisqu'il affichera un octet 
seulement par ligne et fournira plus de renseignements sur chaque 


octet affiché. 


Pour toutes les informations fournies, les codes décimaux et 


hexadécimaux sont successivement présentés: 


Adresse décimale 


_ 
— 


2) Adresse hexadécimale 


2 


3) Contenu décimal de l'adresse 


4) Contenu hexadécimal de l'adresse 


— 


5) Contenu de l'adresse (si possible) en caractère CHR$( 


Re 


Ce programme vous sera très utile dans votre exploration de la 
mémoire de votre ordinateur car il vous évitera de devoir sans 
cesse convertir les nombres que vous obtenez. Ce programme vous 
permettra d'autre part très aisément d'apprendre à connaître le 
grand nombre de tokens (souvenez-vous: token=code d'une 
instruction BASIC) dont l'annexe de cet ouvrage vous fournit la 


liste. 


Faisons un essai: ajoutez à votre programme la ligne 9: 9 PRINT 
(ENTER). Comme vous le savez, la mémoire du programme BASIC 
commence en 368. Entrons donc 368 comme adresse de début. La 


valeur finale nous est égale, pourvu qu'elle soit supérieure en 
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tout cas à l'adresse de début (appuyons donc simplement sur 
ENTER). L'affichage de la mémoire se déroule jusqu'à l'adresse de 
début + 2000 = 2368. Pour notre expérience, il nous suffit de 
faire afficher les 10 premières adresses de la mémoire, donc 
adresse finale 378! Listez ensuite les ligne 9 et 10 pour 


contrôler l'affichage. 


Voici brièvement comment interpréter l'affichage du contenu de la 


mémoire: 

Adresse 368: contient 6 (368 et 369 donnent la longueur de la 
ligne) 

Adresse 369: contient 0 (Adr 368+(256#Adr 369) = 6 octets) 

Adresse 370: contient 9 (370 et 371 donnent le numéro de la 
ligne) 

Adresse 371: contient 0 (Adr 370+(256#Adr 371) = numéro 9) 


Adresse 372: contient 191 (token de l'instruction PRINT) 

Adresse 373: contient 0 (Marque de fin de ligne) 

Adresse 374: contient 35 (374 et 375 donnent la longueur de la 
ligne) 

Adresse 375: contient 0 (Adr 374+(256*Adr 375) = 29 octets) 

Adresse 376: contient 10 (376 et 377 donnent le numéro de la 
ligne) 

Adresse 377: contient 0 (Adr 376+(256*Adr 377) = numéro 10) 


Adresse 378: contient 197 (token de l'instruction REM) 


Intéressons-nous à l'adresse 372. Entrez POKE 372,197 (197 est le 
token de ‘REM') et listons la ligne 9. Vous voyez que 
l'instruction PRINT de la ligne 9 a été remplacée par une 
instruction REM. Notez simplement pour le moment qu'il n'existe 


pas seulement des tokens à un octet mais aussi des tokens à deux 


2h 


octets. Nous n'en dirons pas plus pour le moment mais vous pouvez 


consulter l'annexe comportant la liste des tokens. 
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Editeur graphique 


Le graphisme est certainement plus simple à programmer sur le 
CPCA64 que sur beaucoup d'autres microordinateurs similaires, mais 


il reste néammoins relativement compliqué. 


Il n'y a en effet que deux instructions graphiques directes (PLOT 
pour créer un point et DRAW pour dessiner une ligne) et il faut 
d'autre part savoir jongler avec les coordonnées si on ne veut pas 
risquer de ne pas créer ou dessiner exactement les points qu'on 


aurait souhaité. 


Mais le graphisme devient un jeu d'enfant avec le programme 


d'éditeur graphique que nous vous présentons maintenant. 


Nous avons longuement réfléchi avant de décider du mode de 
commande du curseur graphique qu'il convenait de choisir (il 
aurait été en effet inutile de réaliser un éditeur graphique, si 
c'était pour utiliser uniquement l'adressage absolu!). Nous avons 
éliminé le joystick et les touches curseur parce qu'ils ne nous 


permettent pas de distinguer plus de 4 directions. 


Comme nous voulions avoir un bloc de 8 directions (les 4 points 
cardinaux plus les À diagonales), nous avons simplement réaf fecté 
une grande partie du clavier de façon à disposer d'un bloc de 8 


touches correspondant aux 8 directions. 


Le programme "Editeur graphique" ne vous permet pas simplement de 


dessiner dans 8 directions: 
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"C' vous permet de positionner le curseur de manière absolue (par 


exemple 320,200 correspond au centre de l'écran). 


‘D' vous permet de dupliquer une zone de l'écran (vous marquez 
avec le premier curseur l'angle inférieur gauche de cette zone et 
avec le second curseur l'angle supérieur droit puis vous marquez 
avec le troisième curseur l'angle inférieur gauche de la zone où 
cette zone doit être copiée). La fonction 'OR', au contraire de la 
fonction 'AND' n'efface pas le fond de l'écran. Vous pouvez 


également faire afficher l'original agrandi deux fois. 
‘F' vous permet de choisir parmi les couleurs possibles. 


"G' vous permet de tracer une ligne d'une longueur quelconque 


entre deux points. 


'K' vous permet de tracer un cercle autour du curseur qui en sera 


le centre, après avoir entré le rayon de ce cercle. 


‘L' vous permet d'effacer une zone que vous définissez par deux 
positions du curseur (angle inférieur gauche et angle supérieur 


droit). 


‘R'vous permet de créer un rectangle que vous définissez par deux 
positions du curseur (angle inférieur gauche et angle supérieur 
droit). 

‘T' vous permet d'afficher un texte à partir de l'emplacement du 


curseur. 
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Vous voyez qu'il ne manque à notre éditeur graphique que la 
possibilité de peindre des zones, de sauvegarder l'image créée sur 
cassette (une sauvegarde de 16 K dure vraiment trop longtemps, 
attendons plutôt le lecteur de disquette) et une routine 
d'impression sur imprimante (hardcopy). Mais toutes les autres 
possibilités graphiques de votre ordinateur sont mises en oeuvre 


de façon très simple par cet éditeur graphique. 


Bien sûr si vous voulez améliorer ce programme, vous pouvez donner 
le champ libre à votre imagination créatrice, sous réserve 
évidemment de ne pas surcharger la capacité mémoire de votre 


ordinateur. 
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Editeur de son 


Le CPC dispose d'un processeur sonore vraiment remarquable mais 
plus d'un fana de musique aura certainement déjà été découragé par 
le complexité des instructions musicales et l'apparent illogisme 
de leur syntaxe. Comment s'expliquer en effet qu'il faille appeler 
avec l'instruction SOUND les canaux des notes en premier lieu et 
n'appeler le volume qu'en quatrième position? Comment se rappeler 
précisément des diverses possibilités des techniques de rendez- 


vous? 


Nous ne pensons pas que l'apprentissage par coeur puisse être ici 
d'un grand secours mais plutôt que la seule solution est de 
rechercher sans cesse dans le manuel les informations dont on a 


besoin. 


Ou encore: comment se rappeler quelle courbe d'enveloppe ou de 
volume est actuellement activée et quelle courbe nous pouvons 


activer? Faut-il faire des petites notes sur papier? 


Notre ‘éditeur sonore' vous offre une solution bien plus commode. 
Vous trouverez en effet tous les paramètres avec leur 
signification en français sur une page de l'écran. Vous pourrez 
ainsi, simplement en appuyant simultanément sur la touche ‘SHIFT' 
et sur une autre touche, monter (par exemple <SHIFT> 'H' => 
augmente la hauteur de la note) ou en appuyant simultanément sur 
la touche 'CTRL' et sur une autre touche, descendre (par exemple 


<CTRL> 'L' => diminue le volume). 
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Vous pouvez ainsi produire à l'écran, très tranquillement, 
n'importe quelle note ou bruit en appuyant ensuite sur la touche 
ENTER pour activer le son ainsi édité. N'oubliez pas qu'il faut 
activer, pour produire un son avec notre éditeur sonore, le 


volume, la hauteur de la note et au moins un canal sonore. 


Vous pouvez activer jusqu'à 16 courbes différentes pour le son 
d'une part et pour le volume d'autre part et vous pouvez utiliser 
ces courbes lors de l'édition des notes. En appuyant sur la touche 
SHIFT et la touche 'N' vous pouvez entrer un numéro ENV et les 
paramètres correspondants. Le numéro ENV est utilisé pour la 
sauvegarde et n'a donc pas la même signification que le numéro de 
la courbe d'enveloppe. Le nombre de paramètres minimum que vous 


devez entrer est donc dans notre programme non pas de 3 mais de 4. 


Vous pouvez entrer les courbes ENT (courbes de hauteur de la note) 
de la même façon en appuyant simultanément sur les touches ‘ SHIFT' 
et 'O'. Vous pouvez consulter les courbes que vous avez réalisées 
avec <SHIFT> 'P'. 

Nous espérons que vous aurez beauxoup de plaisir à éditer et créer 


de nouveaux sons sur votre CPC! 
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Editeur de texte 


Nous n'avons volontairement pas appelé ce programme ‘traitement de 
texte' car nous savions qu'en employant ce terme nous aurions 
nécessairement déçu l'attente des lecteurs ou programmeurs 


experts. 


Un programme de traîitement de texte doit en effet au moins 
permettre d'insérer des paragraphes supplémentaires dans un texte 


déjà existant, ce qui est cependant très difficile à réaliser si 


on ne dispose que de la sauvegarde sur cassette. 


Un programme de traitement de texte devrait normalement permettre 
également un couplage du texte avec un fichier d'adresses 
(mailing) et permettre également une sauvegarde de section de 
texte indépendamment de la mémoire disponible, les diverses 
sections de texte ainsi sauvegardées devraient également pouvoir 


être affichées à l'écran lorsqu'on les "feuillette". 


La sauvegarde sur cassette rend un tel programme de traitement de 
texte très difficile à réaliser et de toute façon un programme 
aussi performant et complet dépasserait largement le cadre de cet 


ouvrage. 
Maintenant que nous avons limité votre attente, voici quelles sont 
les possibilités malgré tout très intéressantes de notre éditeur 


de texte: 


- Vous pouvez stocker jusqu'à 10 pages de 22 lignes dans votre CPC 
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Vous pouvez feuilleter votre texte vers le début ou vers la fin 
du texte en employant les commandes curseur habituelles. 

Vous pouvez écrire des textes ou les placer où vous pensez 
qu'ils doivent figurer. 

Vous pouvez supprimer des lettres ou des groupes de caractères. 

Si vous avez erré à l'aventure avec le curseur, vous pouvez le 
replacer dans son emplacement de départ simplement en appuyant 
sur la touche COPY. 

L'emplacement du curseur est indiqué dans une fenêtre 
explicative et sa position horizontale est en outre marquée 
nettement par un trait. Ce "trait de soulignage" est produit 
dans la fenêtre explicative en mode de réécriture (PRINT 
CHR$(22);CHR$(1) ). 

Vous pouvez feuilleter votre texte vers le début en plaçant le 
curseur en ligne 1 et en appuyant sur la touche de curseur haut. 
Vous pouvez feuilleter votre texte vers la fin soit en plaçant 
le curseur en ligne 22 et en appuyant sur la touche de curseur 
bas, soit en appuyant simultanément sur les touches 'CTRL' et 
"B' 

Vous pouvez sauvegarder votre texte en appuyant simultanément 
sur les touches CTRL et S puis en entrant le nom de fichier 
souhaité. 

Vous pouvez charger un texte en appuyant simultanément sur les 
touches CTRL et L. 

Vous pouvez enfin faire rechercher certaines expressions dans 
votre texte (et faire poursuivre la recherche après qu'une 


expression ait été trouvée) et faire imprimer votre texte. 


La dernière fonction, l'impression du texte que vous avez entré, 


mérite une explication supplémentaire. Vous avez entré votre texte 
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dans un format de HO colonnes. Mais lors de l'impression, votre 
CPC éditera le texte sur l'imprimante avec le nombre de caractères 
par ligne que vous choisissez, le minimum étant HO caractères par 


ligne. 


Encore un conseil: 

Si vous ne possédez pas d'imprimante, vous pouvez quand même vous 
amuser à faire éditer le texte adapté pour l'impression sur 
l'écran du moniteur, en mode 80 colonnes. Mais vous devez pour 


celà apporter de légères modifications au programme: 


1) Ajoutez la ligne suivante: 


755 MODE 2 


2) Remplacez en lignes 780 et 790 les instructions PRINT #8 par de 


simples PRINT. 


3) Il est aussi préférable que le programme attende un peu après 
avoir édité le texte. Sur l'imprimante, ce n'est pas nécessaire 
puisque vous pouvez toujours consulter le résultat obtenu sur 
papier. Vous pourriez donc rajouter en ligne 810 soit une boucle 
(FOR n=1 TO 10000) avant l'instruction de retour au mode 1 "MODE 
1', soit même un message vous demandant si vous voulez continuer 
(PRINT'FRAPPEZ UN TOUCHE") suivi d'une interrogation du clavier 


avec INKEY$. 


Vous pouvez maintenant faire diverses expériences et voir par 


exemple comment le texte se présente en 80, 70 ou 60 colonnes. 
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Jeu de caractères français 





Si vous placez votre CPC moderne à côté d'une bonne vieille 
machine à écrire traditionnelle, vous ferez vite un constat 
agaçant. Vous voyez en effet d'un côté un ordinateur international 
(ou plutôt anglo-américain) et qui ne dispose donc pas d'accents 
français ni de la cédille; et de l'autre côté une machine à écrire 


qui possède bien toutes les lettres dont on a besoin pour écrire 


en français mais qui -en principe- n'est pas un ordinateur. 


Notre programme a donc pour but de hisser votre CPC au niveau de 
la machine à écrire, au moins en ce qui concerne le clavier: le 
‘z' se trouve là où il doit être, à côté du ‘'a' et d'une manière 
générale toutes les touches se trouvent 1à où elles figurent sur 


les machines à écrire française normales. Vous pourrez en outre 


utiliser les accents et la cédille. 


Mais que deviendront les lettres servant à désigner les 
différentes touches de votre ordinateur? Bien entendu, à moins que 
vous ne colliez de petites étiquettes sur les touches du clavier, 


les touches resteront comme avant. 


Et que deviendront les caractères que vous pouvez normalement 
produire avec les touches qui ont maintenant reçu une nouvelle 
affectation? Une phrase d'exemple en ligne 250 vous permet de voir 
quels sont les changements effectués. Si vous faites lister cette 
ligne avant de lancer le programme, vous pourrvez voir quels 
signes ont été remplacés par des accents ou la cédille. 


Si vous en avez assez d'utiliser ce jeu de caractères français, 
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vous pouvez éteindre votre ordinateur ou provoquer un RESET avec 


les touches SHIFT, CTRL ou ESC. 
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Jeu de signes mathématiques 





Ce programme ne comprend que deux sections: 

Les lignes 410 à 2560 contiennent en ligne de DATA 24 signes 
mathématiques couramment utilisés. 

11 s'agit exactement des signes suivants, que vous pouvez appeler 
en appuyant sur la touche CTRL et la touche figurant en regard de 


chaque signe: 


Alpha a Beta b Gamma c 
n'appartient appartient à e Intégral f 
pas à d 

Pi & Sigma h Omega i 
infini 3 angle k Triangle 1 
Carré n Cercle o parallèle q 
Rectangle r Congru 8 Proche de t 
Ensemble vide u 1à1 v différent de w 
Val. approchée x Proportionnel y approché à Z 


Nous avons choisi de représenter les formes de ces signes en 
nombres binaires de façon à ce que vous puissiez aisément les 
modifier si vous n'êtes pas satisfaits des formes figurant en 
lignes DATA. Mais faites attention à ne fournir que 8 caractères 


par ligne (des O0 ou des 1: 0 signifie pixel éteint, 1 signifie 


pixel allumé). 


Chaque signe se compose de 8 lignes de 8 chiffres binaires. Si 


vous ajoutez à un signe quelconque une ligne supplémentaire, le 
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jeu des caractères suivants sera complètement modifié (vous pouvez 


fort bien essayer pour voir ce que celà donne!). 


Les lignes 80 à 390 lisent les données avec l'instruction READ. 
Pour que la représentation binaire des différents signes soit bien 
interprétée comme une suite de valeurs numériques qui puissent 
être transformées en nombres décimaux pour leur traitement par 
l'ordinateur, il faut ajouter à chaque chaîne de O0 et de 1 les 


caractères '&x' qui désignent les nombres binaires. 


Après avoir lancé le programme avec 'RUN', vous pouvez afficher à 
l'écran les signes mathématiques nouvellement créés en appuyant 
sur la touche CTRL et sur la touche correspondant au signe voulu 


dans la table de la page précédente. 


Pour que le jeu normal de caractères ASCII puisse continuer à être 
utilisé, nous avons affecté nos signes mathématiques aux codes 1 à 
26 qui ne correspondent pas normalement à des caractères 
affichables. Nous n'avons cependant pas modifié le code ASCII 13 
qui correspond à la fonction de la touche ENTER ni le code ASCII 


16 qui correspond à la fonction de la touche DEL. 
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Jeu de caractères informatiques 


I1 faut bien reconnaître que le jeu de caractères du CPC est très 
esthétique. Bien que les différentes lettres ne soient dessinées, 
comme sur d'autres ordinateurs, que dans une matrice de 8*8 (8 
colonnes de 8 points allumés ou éteints), la qualité du dessin des 


différentes lettres rappelle vraiment la machine à écrire. 


Pourquoi vouloir donc créer un nouveau jeu de caractères? Eh bien, 
celà fait maintenant plusieurs années que dure la grande mode des 
jeux électroniques. Et pour ces jeux futuristes, il est clair que 
ce n'est pas de lettres classiques mais bien de lettres et de 


symboles informatiques qu'on veut pouvoir se servir! 


Le programme comprend deux parties principales: 
1) Un océan de lignes de DATA comportant le jeu de caractères 
informatiques 


2) La routine de traitement et de chargement des DATA. 


Quelques précisions sur la deuxième partie du programme: le CPC 
présente tout (y compris les lettres et autres caractères) à 
l'écran sous une forme grafique. Il est donc, contrairement à ce 
qui est le cas sur les autres ordinateurs, relativement facile, 
non seulement de mélanger à l'écran texte et graphisme, mais aussi 
de représenter la même lettre plusieurs fois avec des formes 
différentes. Nous avons utilisé cette possibilité dans notre 
programme qui vous permet soit de transformer le jeu de caractères 
complet dans écriture informatique, soit de travailler 


simultanément avec les jeux de caractères normaux et 
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informatiques. 


Si vous connaissez la puissante instruction SYMBOL, vous 
comprendrez certainement comment nous avons pu modifier 


complètement le jeu de caractères de votre ordinateur. 


Mais comment peut-on conserver en mémoire deux jeux de caractères 
simultanément? Il faut pour celà que le programme continue de 
tourner car il n'est pas si facile d'appeler simultanément autant 
de caractères avec les touches du clavier. C'est pourquoi nous 
avons placé dans le programme un commutateur entre les deux jeux 
de caractères: si vous appuyez sur TAB vous passez de l'écriture 


normale à l'écriture informatique ou vice versa. 


Voici la technique de programmation que nous avons utilisée: le 
code ASCII du caractère voulu est interprété (par exemple ‘!'=33); 
puis le programme cherche la forme de caractère informatique 
correspondante et... celle-ci n'est pas placée avec l'instruction 
SYMBOL à la place de la forme normale du caractère choisi (sinon 
il ne serait plus possible de revenir au jeu de caractères 
normal)... mais elle est placée dans un caractère inutilisé 
(CHR$(255)). C'est donc toujours ce même caractère qui est 
affiché, chaque fois avec une forme différente, lorsque vous 


affichez un caractère informatique. 
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dé a 
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FEM Q 
C'ATA 
CATA 
C'ATA 
DATA 
CATA 
CATA 
DATA 
DATA 
C'ATA 
FE EF 
C'ATA 
DATA 
DATA 
C'HTA 
C'ATH 
C'ATA 
DATA 
UATH 
DATA 


ce FREM 
4 DATA 


CATA 
CAT 
DATA 


sf DATA 
434 DATA 
A DATA 
4614 DATA £ 
dé DATA 
4 BEM CT 


A DATA Hé 
4 DATA 4111 


DATA 


1 CATA 


4 DATA 
SA DATA 





G1114464 
1114404 
a LL 1 LA 1 
A1 

g1111111 
1144411 
11411 


A1144111 


A1144111 
A11A44111 
1111111 
GA 1 11 
AE 
AI111114 
AAA LE 
4114411 
1111111 
AI1LLAIIT 
111111 
AATLATIT 
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ai111111 
A1 LA 
Hi11l1111 
AAA 1 
1114411 
g1114411 
A1111111 
AAC CAC 
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CATA 114111 
DATA AITAAI TT 
DATA AGI1HATIT 
DATA 41141111 

A DATA HIT11111 
A DATA M1111111 
18111 


à DATA 





r& DATA 
à CAT 


CATA AA 1 1147 
CATA 44411144 
DATA AAA 
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DATA 85 
C'ATA A1 140 
CAT see 
CATA G1T1A 

DATA 41160 
CATA 1146 
CATA 1146 
CATA 111 
DATA 4444 


à: ns à : 5 D: 3: 


a FEM 


DATA SÉé 
DATA A1144111 
CATA A1144111 
141 11 
CATA 1144111 
DATA A11AT111 
CATA GALLITIE 
DATA geerl 1 180 
CATA GE 
ÉENM b 
CAT 
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DATA 
FFM 4 
GATH 
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a111H411 
CATA 41114411 
ATLIAAIT 
4111116 
GATA 41144111 
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DATA 1144111 
CATA 91194111 
DATA AAA 
RENM 
DATA 83 
DATA a1188 


RER ER EX) 
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a 
ic 
DATA G1108 
CATA 1111 
CATA MA411 
CATA MAI 1 
CATA A4A1 1 
CATA AAGGE 
ÉEM & 

Sd CATA Si 

meag DATA 41111111 
A6 DATA 4114411 
aeCA DATA G11411A8 
maeot DATA AAA 
CSG CATA AAL1A111 
CATA 1144111 
5310 CATA 1111111 
moe DATA GAAGAGGE 
HA RENM a 
44 DATA A7 
So DATA AAA AAA 
66 DATA AG GA 
C4 DATA HALII114 
et DATA GAAAET TE 
SA DATA GUITIE 
CAT A1 
GATA A11111 
1 DATA AGAE 
34 FE 
44 DATA SE 

3 CATA 
C'ATH 
4 DATA A1 : 
CATA 111 
+4 DATA 41 
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CATA 4111411 
CATA 41111114 
DATA GAG44AA 
FRENM € 

DATA 43 

DATA AAAQGGAAE 
DATA GG444A44 
CATA G111114 
CATA 111446 
CATA 4111444 


DATA a1119900 
CATA 4111114 
DATA ARAGAGAG 


EM 

DATA 146 

CATA AAA 
DATA GGGAA1 TEA 
DATA 44441 164 


DATA 41111115 
GATA 41141116 
CATA 41141114 
DATA 41111114 
DATA GA GEA Ar 
EEM 

DATA 141 

CATA GABA AA 
DATA AG AAA 


CAT ATITILIEA 
DATA A11AA114 
CATA 41111116 


DATA 4114400 
DATA 11111164 
CATA GGGAAAGE 
REM 

DATA 1H 

DATA AAAAAAEAE 
DATA G4411114 
DATA GA 14 
DATA GG11111f 
CAT Gi 1 AE 
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DATA AG 1440 
DATA AAA 1 HAE 
GATA AAA A AE 
REM 4 

CATA 145 

DATA GGA44A44A 


CATA GABA AE 

CATH 11 

DATA 411 

CATA 411 
FT 
AE 
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JP 1 À io lo 9 


L LO 0 DD 
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ER 


+ em MiD 2 


Eu] 
St 9 0 9 D 9 9 9 9 0 9 9 OO 9 DO Oo 


CATA 4 
CATA GE 
CATA AIT 
FEI Hi 
DATA 184 
CATA GA4446 416 
DATA 111446 
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154 FREN 1 
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1564 CATA AAA 
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ELA DATA GGA11440 

6199 DATA GAG1 16 

SeG CATA GA111144 

Set CATA AGI111A 

6éeA LL LE LA 
SA 





A DATA 1646 
0 DATA AAA 
4 CATA GAME TA 
GATA AAA 


L 
DATE AAA 
DATA AAA 
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A CATA GAGA41114 
516 CATA AG441114 
324 DATA 44111119 
é3sA REM Kk 
CATA 147 
CATA AAA 
CATA 41144464 
CATA 41160444 
DATA @1141146 
CATA 41111444 
DATA 4114114 
ÉA 1 CATA 4118411 
Ars DATA GGAAEAAAEA 
44 RENM T 
444 CATA 145 
6454 DATA GAME 
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£d9 DATA AAA 114 
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sara DATA GARAAE 
SA RE 1m 
GATA 1H 
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DATA ALI 
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RARES ELA) 


0 O0 JM EN 
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-89- 


ÊrE 
Fr 
GTEn 





te AT 
LE 












RAR RERN ER EX EL 
Ci —J: 
D Dim 


ER 


ni 


CATA 4114411 
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14 DATA 


DATA A1 
CATA 41 
CATA 4 
FE & 
CATA 115 
CATA AAA 
DATA AAAGAAEAE 
CATA 41111116 
DATA AT 14 
CATH 41111114 
CATA GA 11 
CATA 41111114 
DATA AGGAAAAG 
MEN € 
CATA 116 
CATA 44 
DATA A1 
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CATA @1181 
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DATA 49111148 
DATA aa 12120 
RE Ll 

DATA 113 

CATA AAAAAAAA 
DATA AAAAGAAA 
CATA A11Aa4 
DATA 411414 
DATA 11 
DATA A11 
PATA 441 
DATA AAA 
FENM 
DATA 128 
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DATA AAAAAAAG 
DATA a119m110 
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DATA GAB1 10GA 
DATA 44111164 
CATA 41144114 
CATA AAA 
FEI 4 

4 DATA 121 

24 CATA GAMME 
Frén CATA GAAAAAAE 
Fr DATA ALIAITIE 
Fee CAT A1141114 
FFSA DATA GI1AITTE 
Fent DATA AI1L1114 
Feia CAT GM4A111f 
Poe CATA 41111114 
FE x 

DATA OIZE 

DATA AAA AAA 
SA DATA AAA 
F4 CATA 41111114 
i DATA AAA 11 
CATA AAA 146 
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DATA 44114708 

DATA 41111114 

a$=INKEYS:IF a%="" THEN GOTO 7934 
PRINT ASCCa$):GOTO 793 
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Messages d'erreur 





On a parfois l'impression d'être victime d'une malédiction quand, 
après avoir longuement travaillé au développement d'un programme, 
on l'entre dans l'ordinateur et qu'on s'aperçoit que malgré des 


efforts répétés il se produit toujours des erreurs. 


Comme le CPC n'a pas été conçu en France, les messages d'erreur 
sont naturellement affichés en anglais et ils sont de plus 
relativement brefs pour ne pas consommer trop de place en mémoire 


(syntax error, type mismatch...). 


Les programmeurs consciencieux apprennent tous avec le temps à 
connaître par coeur la signification des différents messages 
d'erreur, mais c'est le plus souvent un long chemin semé 
d'embûches et de petites fautes d'interprétation qui ralentissent 
le développement des programmes. Comme le CPC dispose de 
l'instruction ON ERROR GOTO, nous pouvons le forcer à réagir à une 
erreur comme nous le souhaitons et il peut même corriger certaines 
erreurs de lui-même: si par exemple le CPC charge des données à 
partir de la cassette et qu'après avoir lu toutes les données d'un 
fichier vous tentez de lire d'autres données, il va normalement 
afficher le message d'erreur: 'OF' met (= rencontré la fin du 
fichier). Il est alors très simple de prévoir dans une routine de 
traitement des erreurs que le CPC devra fermer le fichier ouvert 
quand se produira cette erreur. Le programme pourra ensuite suivre 


son cours normal. 


Notre programme de messages d'erreur ne supprime toutefois pas les 
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erreurs qui se produisent (ceci peut mener en effet à des 
résultats inattendus, si la suppression des erreurs n'est pas 
maniée avec précaution) mais il vous aide très efficacement dans 
la recherche des erreurs. Le mieux est que vous essayiez vous- 
mème! Entrez en ligne 20 uniquement NEXT n. Si vous lancez le 
programme, vous voyez que l'erreur est immédiatement détectée et 
indiquée et qu'une stratégie de correction du programme vous est 


proposée. 


Comment procéder maintenant avec les programmes que vous avez déjà 
écrits? Il faut d'abord renuméroter les lignes de vos programmes 
avec l'instruction RENUM pour que les deux programmes ne se 
chevauchent pas (les numéros de lignes de vos programmes doivent 
donc être compris entre 10 et 10000). Utilisez maintenant 
l'instruction 'MERGE' (reportez-vous aux explications du manuel) 
pour fusionner les deux programmes entre eux. Vous pouvez alors 
lancer votre programme et le corriger à l'aide des messages 
d'erreur et des propositions de rectification qui vous sont 


faites. 


Le CPC dispose d'autres instructions que ON ERROR GOTO qui peuvent 
vous aider dans le domaine du dépistage des erreurs: 
l'interrogation de la variable ‘"ERL' vous fournit en effet la 
ligne où s'est produite l'erreur et la variable 'ERR' vous fournit 
le numéro du message d'erreur. Vous pouvez enfin produire des 


erreurs avec l'instruction ERROR. 
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14 FEM Mezsades d'erreur 

11 REM Programmes Basic Pour le CFCé4éé 

12 REM CoPuriaht 1954 DATA BECKER 4 
Fdiner Luéers 


13 INK G,1:IMK 1,24'IHK 31,24 
14 OH ERROR GOTO 14848 
29 REM Veuillez taPer votre Programme 


entre les liÿnes £A $8t 9999 
ou bien utilisez MERGE 
144 WEHD 
4999 STOF 
1QQ0A8 RENM Debut de la routine de 
traitement detaille dés 
erreurs 
19414 MOCE 1:FEH 1 
19924 PRINHT"'Erreur en ligne "ELU" 
14434 GOSUE 11424 
1944 REM UnexPected MEXT 
14954 IF ERR=1 THEN FRIHT "En ligne"ERL" 
fiqure l'instruction "PEN 3 ELSE GOTO 1 


g1n0 
19069 FRINT "'HEX 1e FEH L:'FRIHT "sañis 
qu'uve inétruction ‘FOR core 


sFondanté ne fiqure auParawant dansle Pr 
oarartesz, 

19979 FRIHT"'IL $8e Peut egalement due vou 
5 auex utilise avec HEST le nom d'u 
ne variable correspondant 4 Une autre bo 
uile." 

14959 END 

19934 FENM Sgntax Error 

19104 IF ERR=? THEN PRIHT "La constructi 
on de la ligne"EEL ELSE GOTO 14198 

14119 FRINT l'est incorrecte ou un mot à 
wte Mal ecrit, On Farle de "PE 
H S:PRINT "SYHTAX ERROR'"S:PEHN L:FEINT ". 


14124 PRINT 
18154 ED 
19144 REM UnexPected RETURH 
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14154 IF ERR=S THEH PRINT "En ligne"EEL" 
figure l'instruction ":FEH G:PRIHT "RETUR 
M'I:PEH T'PRIHT ", sans qu'une ingtructi 
mn "3 ELSE GOTO 19194 

14169 FRIHT "’COSUE’ ":FRIHT"'n'ait auPara 
want s3FPFele Un SOUS-F rOQF- a 
me corresftondante, " 

18174 EHD 

19150 FEM DATA exhausten 

1919Q IF EFR=d THEN FRIHT "Vous voulez f 
aire lire encore d'autres":PEN 3:PRIHT"D 
ATHS":: PEN L'ELSE GOTO 19224 

19269 FRIHT"'Alurs Que toutes les donnees 
en CATAE ant deja ste lues, Il £ée Peu 
egalement Que vous auex oublie d'utili 
ar l'ins- truction RESTORE avant de fa 
ire lire a nouveau les donnees en DAT 
A5, " 

14914 EHD 

14224 REN TafProPer araument 

14238 IF EKR=S THEN PRIHT "Un parametre 

ous Un "SG CFEH SPRINT "argument"; PEN LE 
FIHT "a ete" ELSE GOTO 1427A 


au T. 


14244 FRINT'anutre de maniere incorrecte, 
En effet, VOUS ne POUVEZ Paz utiliser 
n'imPortent Quelles valeurs avec les ins 
teuctiions SUUHC ou EHY Far exemple, Cao 


nEeultez votre manel !" 

19254 EH 

14264 MEN Queer f Lions 

192r6 IF ERR:=6G THEH PRINT hotte ordinat 
eur detecte un "iiPEH S:PRIHT "OYERFLOM" 
PEN C:PFRINHT"C" taie un dépassement 
." ELSE GOTO 14324 





14254 FÉIHT'En effet, sous avez &ssaue € 
ñ Liane" ER à FRIHT “de rsprese 
nter DR RENE VENUS Jui depasse les Pa 
ssibilites de  prebresentation du CPCdéé 


Cnobres iorE-3s 4," 


1429 PRINT "Vous avez Peut-etre AUSSI) à 
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£23ye dé convertir un nonmbré en Un à 

utre tupe de nombres, sans respecter la 
valeur limite," 

1A398 EHC 

19216 REM Mermorg Full 

19224 IF ERRx? THEN PRINT "Memoire où &rn 
anglais ";:PFEMN SPRINT "MEMORY"; :FEN 1: 

PRINT " Pleine," ELSE GOTO 14354 

19334 PEINHT"'IL faut le faire! Vous avez 
ecrit un Programme Basic tellement li 
“a qu'il deFasse la caFacite de memoi 
re “Je l’'érdinateur, Essasex de tro 
Uuet Cul mous" 

145944 PRINT'hRourriez raccourcir votre Br 
af arme à Pat exemt le en suPPrimant de 
s lignes de FENM, Vous Fouvez d'autre Far 
t arriver tres rafidement 4 une surcha 
re de la memoire £l VOUS dimensionnexz 
UNE variables où tableaux trop I 
aragrmernt ou "3 

14254 FPEIHT'"'zi vous imbriquez tro de bi 
cles FOR, MEET ou £ror de sous-program 


14369 EHC 
nur REM Line does not exijiat 
14384 IF ERR:S THEH FRINT "ous voulez & 
alter. a né ligne de Frog anne I 
n'existe Pas, en anglais: "à :PEN SPRINT 
PLIME QUES HOT ESTST'i:FEN L'FRINT M," 
ELESE GOT 14424 
LOS PRINT US auex Peut-etre mis la © 
Harris avantles bouffe ou Hién VOLS avez 
ché 3 rénurerote le Programme gars 
tenir Come te dé Ce meme message cd" 
erreur, " 
14496 EHC 
19414 FEM SubecriFlé out of range 
LG IF CERN THEH PRINT "les ic PEN SF 
ÉIHT MESUBSCRIPT'S PEN L:PRTHT ME la arard 
eur de la dimension Choisie COMTE War 
dablei est maecessiue "Mi ELSE GOT 14475 
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14454 PRINT'en liane": PRINT ERL:PRIHT"Yo 

us avez oublie de dimengionner Le ET 

riahle ou vous ne l'avez Pas dimén- gi 

annee 48567 Grande," 

19459 EHC 

1G46A REM Arras alreadu dimensioned 

10474 IF nine THEN PFEIHT "Le dimension 

Tete rt aug :FEN SPRINT "DIM"; :PEH 1: 

PRINT "a dei et Fait quelque Part Mans 
le Programmes, "3 ELSE GOT 14418 
19464 FPRINT'"Vous Me Fouvez dimensionrer 

4 TOUVEAN on Ligne" ERL;i "sans avoir au 

Paravant' PRINT" utilise l'instruction CL 

EE, " 

19499 EML 

19500 RENM Division ba zero 

1H IF EFREsil THEH FRINT'LA Mic FEM SF 

ÉINT "OIVISIONM PEN L:PRINT " Par  n'e 

at Pas PFernmise, "PRINT "Cherchez donc co 

MORTE MOUSE Auer FIL En Fromequer une CV 

erifiez egalement les variables dans 1 

a ligne Pautiveuns" ELSE GOT 14944 

14526 ENT 

LABS RENM Tnvalid direct command 

1546 IF EfelS THEH PRINT "Wous né Pouve 

» entrer cabte inetpactien directement: 

cé m'est pas une "iPFEN SPRINT direct" 
PRINT "command" à : PEH L'FRINT M" ELSE G 

OCTO 19559 

LORS FRIMT "par éccemp Le ARS IRETE Fo 

fur” Lit. CE 2 [NIATE ing le EURE TS 1e Tribu Ta CORRE ME bte 
ne hr ET TES Lt ion claris ur Botir Ame gt, . LA 


“FUI 








EHD 
HAE BEN Tubes mismatch 
LOS IF ERRelS THEN PEIHT "Vous avex ch 
oisi un mauvais taFe dé Mat dalles "ic 
PRINT MCUSS:RENH SPRINT 'PSPE MTSMATCH" 
FEN 1L:FETHT Fda nt RARE RIT "Les nombres ve À 
elent gbre Vus Qu'aven des variables ui 
npopi dues (Variables Hole us dti ELSE 
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GOT 14634 

14599 PRINT "Si vous voulez life cavec R 
EAD cu INPUT une variable numerique QU 
ne chaine de Caracteres, vous devez emPl 
cer LE variable albhanumerique CAS 
‘ES: Ch, “ LP L n] 

19684 PRIHT"Si vous faites lire un nombr 
Far ne variable alFharumeridué, ox 
Potier coner tit 4 nouveau la varia 
euchadine en nombre, avec l'instructio 
WALE sou 2" 

Gi EHC 


11) 


ER DE 


AL 


5 


Eh b 

D 
HE 
Fo 
Le | 
Æ 
zS 
LEA] 
+ 
En 
Es. 
Ge 
st 
Es 
Et 
En. 
ue 
LÉ 
Éd 
+ 
Le 
pe] 
a 


GES IF EFkxid4 THEH PRIHT"IT n°9 à Plus 
de Place Four de nouvelleschaines de ca 
racteres EU SPEN S:PRINT "ETRIHGE" , : PEH 

L'PEIHT "SG: PEIHT'Pour continier d'erntr 
er des chaines, vous Pouvez!" ELSE GO 
TO 14674 

15640 PRIHT:PEINHT"1 0 Facroureoit le Progr 
ame Fasic er Sauvesarder les cha 
istantes EU bte @t eff 
acer avec CLEA 14 Zionemméemoires des ch 
aAines, "3: FRIHT" WOus Poutrezs ensuite & 
ntrer de nouvelles wariables," 





Ines € 





5 EM String Los Los 

LREPA IF ERRSIS THEM FRIHT "La chaine de 
caracteres €MS:PEN S:PÉTNT VSTRIHON PE 

HO L:PRIHT "UM PRIHT "utilises en Ligne" E 

ELia Plus de" ELSE GOTO 1419 

19689 FRIHT MS caracteres, ce qui nées 
4 pas Permis 'Faites dons attention lors 
LE MOULE agrandi ss , ChAaÎNgE ave 
cu + OA Les ions de maniPulati 
an de chajinestelliws : IMHETE, " 

14696 EHC 

1HP664 REM String guelression Los Come lex 
1419 IF ERBelé THEN FRINT "La chaine de 
caracteres en ligne MHERL'PEINT Mest 15 
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PEN SG:PEIHT "£érof complexe"; :PEH 1L:FRTH 
TM: PRINT" He combliquez Pas artificiel 
lement Le Calcul d'u chaine en Util 
isant trop" ELSE GOTO 19755 
1720 PRINT "d'instructions dé maniPulat 
ion de chaines telles que ‘“LEFT#"., 
'ÉIGHTÉ", ‘HIDSg'ou “IHESTR*, 
147539 EMT 
1064 EM Carnot COHTinue 
1APSA IF ERRe1ir THEN FEH S:PRINT MCONT": 
FEH L:PRIHT M'inue ist car eine tolle F 
unktion" ELSE GOTO 1456 
LUF PRINT Mdie eive Fortsgetzuns nach 
EC, CETOP" oder PFrogrammunterbrechuna 
dureh Drugk- Ken ché CEBCeTaste fast im 
mt epnmoeg-  Tiché., aber bitte VORMSTCHT! 
1076 FÉINT Mn dieser Fall ist seit cer 
Proopeameonres ep Epechoong EU vLel Géeséhush 
en, als dass der Computer sich mach dara 
M ri ner Es in melcher Seile @tr mit dem 
Programmatie Laut Port fahren &ol1l," 
14784 EHC 
1996 MER Liakomoue gets fumsE en 
LAS IF EPRelS THEN PEN G:PRINT MEN cF 
EH L:PEIHT " est Certainement Une instru 
étion" ELSE GOT 14864 
181 FRINT"'Pratique Pour calculer des # 
onctions nat bogtea ki: ; œte au 
Pat-anart chafinies dans le Programme à 
ge GER FH, mais en l'occurence, MNLE 44 
mx aFFele ame FH UE PoncEion gen Li 
et ER à 
LATE PRTMT M qui cn avalt Pas gncope ele dd 
a M PRÉTNT PRINT" HOUS vous conseil lo 
“cé Hoi ons podprntner Les def it 
es début de 
4 PRTHT M Épcparntas. dans cé for aPF 
slle la Parties tapat di Gi Fons 
its a 
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10e FENM PE Miss ina 
LEE IF EFR=19 THEH FEH G:FRINT "RESUME 
PEN L'PRIHT "Oil wbre uhilise apres 
l'ins—" ELSE GOTO 14916 
16876 PRINT 'Eruction OH ERRCR GÜUTO Four 
que li Prisdpapame Puigse relpéenedre 
dn Cours au bon endroits "Oo PRTMTIST vous 
entrez simf lement PESUME, L'execiuit 
don du Programs Feprendrs 4" 
14886 PRIHT "partie de l'endroit or 1° 
Ut eut aPpapues, MPRTHTUESN ons 6 
ex RESUME Plus un vumero cé Ligne, 1° 
cutic du Prat art 5e Penirautir 
Partir de cette Lis, !" 
LAEGG EH 
1AA08 REM Ungspectec RESUME 
14810 IF EFRese THEN PÉTHT "ML 'inetruet de 
"US CPEN SPRINT MRESUMEMCPEN L'PRTHT le 
at apharue en Ligne"ERL ELSE GOT LAURE 
LUE FPRTET "a atrrs 14° UNE routine ch Erait 
GPTL TT her AMF 4 aa art 
ÉTNT DERTES Le Épraine DOTE 
FOIE CUT. T { EXT Past qu LE on 
Elément aublie de terminer Le Frog 
faq AE END 
LANGE PRTITS C'est poupauel Le Br ampe 
a PROONT Mecrnt dres gt tes La et ie 
des tra téernt des ere, ! 
1494 EH 
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1 THEN FR HT Oops 
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GOT OT TEE 
LATE PRIHTURE 
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parte EANE numers de Lis 
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11086 IF ERRSEZ THEH PRINT "Certaines 1" 
atrüuctions EASIC ne Feuvent &btre emPlose 
Es sans etre suivies d'un minirum dd": 
PEN SPRINT 'OJPERANCES VS: PEN L:PRIHT ", 
PRINT" PFar esemb le 1l'ingetruction SOUND 
ui E" ELSE GOTO 11H53 
11814 PÉIHT'atre suivie au moing de l'in 
dication du numere de canal et de 14 fre 
Atenee : SOURHD 1,184 par exemple, mai 
ob. 













11€ TF ERR=<2T “THEH PÉLHT "Ligne de Pro 

Aramis trop lanaue!":PRIHTMOMS PEN S:PRIH 

Toto LomaiPEM L:PRIHT MI ELSE GOT 
11H76 

11940 PÉTHT' Le Time de FroGramme ne Fe 

it aie ui che CM apachtepes,s Ms 
Finite el Gr Res mp peur Far x 


ent les en Ligue en PLUS 
LL 








PL ue Tigres, 








5 EHD 

A MEN EUIE met 

JF EFfasd THEN PEH S:PRTNT MEOF M: 

{. FÉTNT " sijiamifie END OF FILE," ELE 

GTA 1115 

GA OPMRTET Misos auteur os Pat per 

Li PRINT ERL "cle L' ner Plus che 

MBRTET fun Fichier qu'il ven 
Héones Pannes MOLE dort 

seils suivants Pour eviter mat 





LU UA ji 








LIEU PRINT Beat La Teste 
sumtte, u#ili 


ÊDE THEN CLOSE IH CUT 





EAU 








LL 

11396 PÉTHT"Lorsque 
mire Par Loi 
4 part BE Le F 
ve y mike pce te, 
LITE PÉTAT "BR es possibilite. placer le 


EUF sera alors renco 

eut, Le fichier 
ae Se FPourEndtira € 
fi 
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Nombre d'elements stockes dans un + 
ichier dans le fichier lui-meme. Lors du 
chargement, faites d'abord Lire ce nombr 
ga, et" 

11158 PRTHT URI TEE an Le ans une boucle 
FOR .u, HET, 

11134 EHD 

11149 KEM File tsPe error 

L1150 IF EF THEH FEÉINT "Le type cu 
ichier CMScPEH SPRINT "FILE TYPE": :FEH 
L'PÉIHT MU'PEÉTHT "est jneorrect, M ELSE G 
OT Lie 

1116 FÉINT"' Mers rue Pons lire ces chi 
DRE AE Line trust QPEMIH ue sur 
less Fichiers MSÛTIT, Far contre, 
LOAD, PU GOuMERGE me Perragkhent de chine 
ep Que des Programmes AUi ont ete saute 
: cite ae SAVE, ! 
PE PRIT 
en effet marches. 
tr DER mt. BHEIC ok 1 SE 
ÉHSTÉE, Ts sont donc en code abrege,!" 
11188 EHD 
11144 EM re ris 1 rit 
Lee IF 5 Ma PRTAT re one 
FOR. « «4 :F HHEMTMS SRE FETEMT 
“ LE OIT Et use 

HET, Pong La are 




























121 PÉTHT 
re " 1: . — e ; EL ; st 

LÉPA PRTNT MAT pandue visiblement Un HE 
Fo Messi fois ed ajnutez-le Ent 1 





CAN Fest 
PRINT "Lin fichier 3 
PEAÇUE HEC l'air "Tr 


"OPEN: PEN 1 





doit Pas 


He ni 
Live 
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et don": PRÉTMT'OPEMIM" : 

11270 PRINT " ou CPEMNOUT, ":PEINT'ECiE wo 
Us amex oublie due ce fichier à deja et 
e ouvert dans une autre Partie dufrour-arm 
me. Soit vous avez relanees le CNT LE TE FL 
res avant d'avoir Ferme Lez!" 

11280 PRINT' fichiers Caves CLOSEIH, CLOS 
ECEIT à ti valent ete muverts Far Le PF 
Fiat ame asser OPEHIN, OFEMOUT 2," 
11290 PEN Unk mou coramard 

11344 IF EFRETS THEH PRIHT "Une instruct 
lon en Liane "iERL El GOTO 11534 

11514 PRINT l'est n'a Fas corou& de l'o 











MR RRTE RATES “da Me cette Poncé don KE": FEM 
:FRINT "LENOIR COMMANDO" PEN 1 :PRIHT 


" 4, 44 


11320 PEN HEMC viss 1 na 
UE DER THEN PRIHT "MHILE,. ." 
: 1 PEN L'PRTHT " cms tit 
rtainengnt" ELSE GITE l F4 
PU nl Entente en dé 1 
E Pre ares sÉtpuhnress MALS VO AE 
tie Juan en Ligne" ERL de fe 
mar chone "PRET NT Rate Prop Lors fu 














ser de 


6 
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(A) ni MAILLE, MEMD avec Mic PEH 5: 
EHC'; PEN L'PRIHT M" 











stone) ME 

THEH PETHT eee 
| HEHE T3 PÉTHT "M constit 

j 4. AUUTYE ie tt EISE ; 

PRINT in En fa Es dé posa lliser che 

En Sr mous SEP EURE EL, fa EH ë 

cat LL es HUE et ions! 








' Met cure 





dre charmes PRINT Mat FE Beat a tie ire Encoi 
Li" 


LE a a 6 MERE muse RER UE: 
LERBTMT mon 





11469 IF EFR=3 
TUFEM' 
11478 
ra | LI] 6 

114 
marre". 
11490 1F ERR=E THEN 
5h Lite) I #] ES THEH 
11519 ] & THEH 


THEH 
IF ERR=4 THEH 


IF EFReS THEH 






11520 ‘TE ERR= 
Cf pra" 
11538 IF ER 
4 RENTE Pere 


ei IF ERR=11 


il 


THEH 


1 THEM 


tu D 

SEE IF ERRe TE 
ct coma vod" 
LISE IF ERRelS 
pit 

11578 IF Eté 


THEM 
THEW 
à THEH 
5 THEM 
STHE 





vies" 
11619 IF CRRelS THEM 
THEH 


THEH 





THEH PRIT 


FRIHT 
FRIHT 
FRIHT 
FRIHT 
FRIHT 
FRIHT 
FRIHT 


FRIMT 
THEH PEIMT 
THEH FRIHT 


PRINT 


PRINT 


FRIHT 
PRINT 
FEIHT 
FRIHT 


MRIHT 


Res THEH PRIHT 








THEH 


: THEN FEIH 


4 THEH FE 
THEH FE 


PRINT 
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Mmes: 


IT rireut 





"lnexrected RE 
"LRTA exhauste 
LE ro ps aurait 
MOepf Lost à 
féroce FUT TL" 
"Line does not 
MSUDEGELER eut 
Area a lrear 
PCs Lo Li 
"Invalid dire 


"Tube mismate 


Sirine SPace 
Met Less T 
Matin gxpre 

REe . LOHTI 


1 1! Ft l: P'OUETE ASS ERF" 


MED IMES pi ges à 


ETC TE E 
CL LLE ETES S 
ME ur 


car MUST 


ER 
RAR 


Mie Li 


Références des variables 





Nous avons déjà étudié dans le programme Mémoire 4 comment les 
différents numéros de ligne et la longueur de chaque ligne sont 
stockées en mémoire (les adresses 368 et 369 contiennent la 
longueur de la première ligne, les adresses 370 et 371 contiennent 
le numéro de la première ligne, etc...). Le programme Mémoire À 
nous a en outre fourni un moyen simple de faire rechercher une 
expression d'un maximum de 6 lettres dans la mémoire de 
l'ordinateur. L'utilité du programme Mémoire 4 était donc d'une 
part de nous permettre de connaître un peu mieux la mémoire de 
l'ordinateur et d'autre part de pouvoir rechercher une séquence 


alphanumérique dans toute la mémoire. 


Le programme ‘références des variables' part du même principe mais 
va encore beaucoup plus loin: il ne recherche pas seulement des 
séquences de caractères ou de lettres dans la mémoire, il ordonne 


de plus les expressions ainsi trouvées. 


Comme le CPC permet de distinguer des noms de variables comportant 
jusqu'à O0 caractères, il faut bien sûr faire rechercher en 
mémoire le nom de la variable tout entier. Notre tâche (et bien 
sûr avant tout celle du CPC) est considérablement facilitée par le 
fait que celui-ci stocke les premiers caractères d'un nom de 
variable normalement mais que le dernier caractère du nom d'une 
variable reçoit un code spécial correspondant au code ASCII de ce 
caractère + 128. Si le nom de la variable ne se compose que d'un 
seul caractère, c'est bien sûr le premier mais aussi dernier 


caractère du nom de cette variable qui reçoit ce code spécial 


ve 


(code ASCII + 128). Le stockage des variables et le listage des 
références des variables par notre programme tiennent également 
compte de l'existence de différents types de variables 


(alphanumériques, nombres entiers, ...). 


Voyons maintenant quelles sont les possibilités exactes de notre 


programme de références des variables: 


1) Recherche des variables du programme (le programme ‘références 
des variables commençant en ligne 10 000, la dernière ligne de 


votre programme doit être au plus 9999). 


2) Si le nom de variable trouvé figure au premier rang dans 
l'ordre alphabétique des variables de votre programme, le 
programme recherche dans la mémoire programme dans quelles lignes 
de votre programme cette variable apparaît. C'est ainsi 
qu'apparaît une liste des références de vos variables qui peut 
vous être d'un très grand secours dans votre travail de débuggage 


(recherche des erreurs) de vos programmes BASIC. 


Vous pouvez essayer notre programme immédiatement en entrant en 


lignes 10 à 50 les affectations de variables suivantes: 


10 a$="CPCA64" 

20 b$="Ordinateur" 
30 CPC-464 

HO DATABECKER!=464 


50 PROGRAMMESBASIC%=4 64 


Vous pouvez lancer maintenant la routine de références des 
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variables avec RUN 10 000 et vous verrez peu de temps après sur 
l'écran non seulement la liste des variables utilisées mais en 


outre les numéros de ligne où ces variables apparaissent. 


Une fois que la totalité du programme a été examinée, le CPC 
indique combien d'octets votre programme occupe en mémoire, sans 
tenir compte bien sûr du programme de références des variables 
qu'il vaut mieux que vous supprimiez lorsque votre programme sera 
complètement au point. Il vous suffira pour celà d'utiliser 


l'instruction: DELETE 10000-. 


Un dernier conseil: 


Plus votre programme est long et plus votre CPC mettra de temps à 
rechercher toutes les variables que vous avez utilisées. Nous vous 


recommandons donc de faire preuve d'un peu de patience. 


Les noms des variables doivent en effet être tout d'abord triés 
(non seulement d'après l'ordre alphabétique mais aussi en 
distinguant les majuscules et les minuscules), puis le numéro de 
la ligne ou des lignes où elles apparaissent doit ou doivent être 
recherchés et il faut enfin que l'ordinateur affiche toutes ces 


données à l'écran. 
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Calendrier 


Tous ceux qui ont l'habitude de travailler avec des ordinateurs 
rencontrent fréquemment des programmes de calendrier sous telle ou 
telle forme. Il s'agit aussi bien de programmes de "calendrier" 
isolés comme dans le cas présent ou bien de programmes plus 
important comportant un sous-programme de calendrier (par exemple 
les programmes d'agenda dont vous trouverez également un listing 


dans le présent ouvrage). 


Il s'agit de toute façon toujours d'additionner les jours, les 
mois et les années pour calculer comme résultat final quel jour de 


la semaine sera la date voulue. 


Le programme que nous vous proposons comprend trois parties qui 
résultent de l'entrée avec INPUT de l'année, du mois et du jour 


calendaire voulus. 


L'année entrée doit être comprise entre 1901 et 2000 et les années 


bissextiles sont calculées automatiquement (ligne 140). 


Pour le mois, le nom du mois et le nombre de jours sont déterminés 
en fonction du numéro de mois entré. Si l'année est une année 
bissextile (z=1) le 29ème jour du mois de février est pris en 


compte (ligne 590). 


La ligne 750 permet enfin le branchement du programme sur les 


différents jours de la semaine et l'affichage correspondant (le 


... de l'année ... est/était un ...) et si vous le souhaitez vous 


2112> 


pouvez faire calculer le jour de la semaine d'une autre date. 
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14 
ce 
34 


af 
Cri 
pal 
fi 
rt 


ee pe if (D 0) — 
es 1 2 RAR LX 


Lu 


Do 


Et D Et 


at iù 


Folie nmmh he ir 
en 


Fe re ER LD QU HS M CI E — à 2 
a à 


<=, 
B* 


si 


Fo Po 
Fe in Æ 35 
EN ie 


x = LP 


FENM Calencdbi 


_. 


PEN Proûdrammes Basic Pour le CFCdéd 
RENM Copurisht 1984 DATA BECKER 4 


IHK @,1:1IHK 
41=1 

MOCE 1 
PRIHT 

PEIHT 

PRIHT 


FRIHT " Determination du Jour de 14 


maine 


Fainetr Lusans 
1.24: IHÉ 2,1,2d'effetssin 


de 1941 a <a" 


FÉTINT:FRIHT 


RENM Entre 
éPour 


de l'annee et: 
les annees Hi£ss 


LE: 


AlCU 
“til 


LU — 


} 


ne 
se # 


mm: Li 


Ro 


LHPUIT Arme ii 
IF j61901 OF 132444 THEH GOSUE 994: 


pa KT 
IF IHTÉ id 
11=2 


i=j/4 THEM ze] ELSE zsû 


IF i=1961 THEH GOTO 234 


FÜR ne194z 
ii=il+i 
IF IMTéc- 


HET 
FEN Entres 


Er du mois et nombre de jours 
LHPUT "Mais 


TO 


La 


L'édisin-1 1-4 THEH ils i1+#+1 
IF 1126 THEN disji-r 


du mois et calcul 


im 


IF mél UR mi THEH GOSUE 994: GCITU 


tj om GOSUB 
«414,436, 458, 


EG COTE St 
4 me" ami er" 


4 FETUFH 





= "td AaFE nu 


226 RETURH 


4 ab" Feu i er 
FETLUEH 


24, 294,510, 3434, SU, 
A7, 430 


1:57 
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Le 
eu 


Je D DIN NT UN 8 1) 
D OR Se St QU 


mb= "Avril" 
RETLRH 
mb="Mai" 
FETURFH 

mé=" ii" 
FETLIREH 

mg=" Juillet" 
FETURH 

mg= "out" 


4 FETUREH 

34 mb="Septembre" 
A FETUEH 

4 mé="Octobre" 
SA RETUEH 


R He He de Lo 0 19 CO Le) Co 


=" Hdosernbre" 


4 HETLURH 


mé="Decenmbre" 
RETURN 


à FESTORE: FOR n=1 TO m 


RD im! 


it 


HR A He di Pit es OL 


L0 Q 
D 2 


EX) 


a 
El 
EX 
=, : 
D] 


1 
_ 


Le Pire 
HR iQ: 


x | 


1 
is 


FA . 


TT Ti PT a a D Ps St M NO CN 9 ee CS CA CA ER ER EAN E 


RENE ELA EN] 


LE 0 Ti 


EX 


REC mi 

HEST n 

DATA 51.28.81. 30.31.34 

DATA 31,:21,38, 31.34.31 

IF gel AND mes THEH mises 

FE Entrée ii jour Coumeroi et Calc 
du jour de la semaine 

IHPUIT "our Mit 

IF tes AND ms AND z£51 THEN GOSLIE 

GOT SA 

IF tEJ OR £érml THEN GOSUE 994: GOT S 


+.1=6 
RESTORE 
IF mel THEH GOTO 696 
FOR nee TO m 
FEHD mi 
Listi+mnl 
HET 
IF ei AND mia THEN Listi+i 
Listitt+il 
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DRE ER ER ET ET ENTER EE 


Dr 
‘ 


NN ND NI 7 Ne 
D IT D UN 8 Lo FU 


CARNET ELA EL) 


LD 0 I TN LE Giles 
SR 1 


RER) 
_— 


tr 0 0 0 0 0 1 Là 


2e 


1 1 
ls = = 
Et Est ES à 


A Br AO D RD 0 LD 0 ti O9 O0 OÙ O0 0 cr O0 10 CO D Je 


AO CU J Mi LR 


a ID ee 5 


dl 
GA 
1 6 
Ut 


42 


[a TE 


Fr) 


ee ail ba pa if 
+ 


Listi-IHTEOLIL/TUET 
IF tizf THEN tif 
PRIHT 
PRINT " Le'itimbi" de l'annee"; i 
FEIHT " eat/etait un "i 
OH t1 GOSUE 844.864, 869694, 9404. 924,94f, 
PRIHT 
PRINT 
INPUT " Voulez-vous calculer 
un autre jour de la semaine 


Ha "it 


FHEUPFERSEE FE 
IF fH="H" THEH EHC 
FRESTORE 
CLS 
GOT 6 
FEIHT"Cimanche" 
FRETUEH 
FRINT "Lu i" 
FETUEH 
FÉTHT "Mardi" 
FETLEH 
PRIT "Mercredi" 
FETURH 
FEIHT'" Jeudi" 
FETLIFEH 
PRIT" 'errdreec 
FETLIEH 
FÉIHT "Samedi" 
FETLUREH 
EHC: 
FEH effet: PRTHT:PETNT TAB 1 Entre 
Cerpecte DU 
PEN norra ll: GOSUE 14164: KETURH 
FRIHT:FEINT THEBC Fu "ÉMEFUSeZ ŒIr. Un 
Uche SF, st 
FHSINEESÉE:IE FHEUUTMEN GOT 1REA 
RETLEH 
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Fichier de disques 


Ce programme ne méritera son nom que si vous le tapez mot pour 
mot, instruction pour instruction, exactement comme il figure dans 


notre recueil de programmes. 


Mais comme le produit final, moyennant cette précaution, sera une 
petite banque de données aux performances pas du tout 
négligeables, il est aussi possible de modifier certaines 


instructions PRINT, de façon par exemple à ce que PRINT"Entrez les 


disques" devienne PRINT'"'Entrez les adresses. 


Vous pourriez ainsi vous constituer très facilement, en plus de 
votre programme de fichier de disques, un programme de fichier 
d'adresses qu'il faudrait bien sûr que vous sauvegardiez 


séparément. 


Nous reconnaissons toutefois que le programme de fichier de 
disques pâtit malgré tout de certaines contraintes qui ne 
pourraient être valablement éliminées que si nous ne travaillions 


pas sur cassette mais sur disquette. 


La première limite du programme tient bien sûr à la capacité 
mémoire de notre ordinateur: si nous utilisons pleinement une 
fiche (trois fois HO caractères), nous occupons déjà 120 octets en 
mémoire. 100 fiches représentent donc 12000 octets. C'est pourquoi 
nous avons dû limiter à 300 le nombre maximum de fiches 


différentes. 
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Si vous êtes certain que vous n'utiliserez pas autant de 
caractères par fiche, vous pouvez modifier le programme de façon à 
remonter le nombre limite de fiches. Vous pouvez par exemple 


modifier ainsi la ligne 100: 


100 IF z<1 OR z>400... 


Le programme ‘fichier de disques' vous offre les possibilités 


suivantes: 


1. Vous pouvez constituer des fiches de trois champs (nom du 
disque, chanteur, numéro). 


s 


2. Vous pouvez charger des fichiers à partir d'une cassette. 


3. Vous pouvez sauvegarder des fichiers sur cassette. 


LH. Vous pouvez faire rechercher un disque en mémoire (d'après le 
nom du disque, du chanteur ou le numéro). Pour cette fonction, 
l'écran affiche les données trouvées qui correspondent à ce que 
vous cherchez jusqu'à ce que l'écran soit plein. Vous appuyez 
alors sur ENTER pour que la recherche se poursuive. Ceci vous 
permet donc de faire rechercher par exemple dans votre fichier 


tous les disques d'un chanteur que vous possédez. 


5. Vous pouvez faire éditer la liste complète de vos disques sur 
l'écran ou sur une imprimante (pour l'affichage à l'écran, les 
données sont affichées par groupe de 5 et vous devez appuyer sur 


la touche ENTER pour passer à la suite). 
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6. Vous pouvez modifier les données entrées. Comme la routine 
d'entrée (point 1) vous permet déjà de corriger les données que 
vous avez entrées, il est peu probable que vous utiliserez cette 
fonction pour corriger le nom des chanteurs ou des disques 
figurant dans votre fichier. Nous avons en fait surtout pensé ici 
au cas où vous transformeriez ce programme en programme de fichier 
d'adresses. Il arrive en effet fréquemment qu'on ait à modifier 
les données d'un fichier d'adresses à la suite de changements 
d'adresses. Il vous suffira alors de sélectionner le point 6 du 
programme. Vous pourrez ensuite laisser inchangées certaines 


informations en appuyant simplement sur ENTER et en modifier 


d'autres en entrant les nouvelles informations correspondantes. 


Que vous utilisiez ce programme pour vos disques ou que vous le 
transformiez en programme de fichier d'adresses, nous vous 
souhaitons en tout cas de bons moments et nous espérons qu'il vous 


permettra de mettre un peu d'ordre dans vos affaires. 
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19 RE Fichier de disques 
CA REM Frogrammes . ic Pour le CPCdéé 
39 REN Corurighé 1564 CATA BELERR & 
Ra lret Liceærs 
4  . M, 1:IHK 1,24:INK %,1.24'effetszin 
Ca Te DURE 
9 mel: MODE 1 
64 ROM Preparatifs avant dimensionnement 
des variables 
ra PAPER L'PEH GB:PRINT "Fichier de disau 
es": PAPER G:PEH 1 
ao PRINT. 
29 INPUT "Combien de disques voulez wo 
enregistrer Cmasimunm GA Mix 
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ea disForitles, M PERTAT:PETNT: PETHT 
14A THPUT l'Estece suFfigant Les dlron 11 fa 
Mt chavaer Le ing Limnement cles disques 
TEA CC EL: 

LE LEP DSC LPPE REC PE 0, 1 

FO FHeUMU THEN CLERR: CT SEA 
ou HFFichage di mens Prinmeirat 
“| 









LE 








Pi hé he pa bre trs 
Ur 





uses" + G:PEH 1 
219 LOBRTE 164 14 
rl _"Me TIR 
"1.Entrer disques" 

D, LA PRINT ME, Charger disques 
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268 LOCATE 8 1IS:PRINT "3,Sauveaarder dis 

ques" 

crR LOCATE GS 16: PRINT "4, Rechercher dis 

nues" 

£a LOCATE 8,1P:PRIHT "5. Sortir disques" 

e98 LOCATE SO 18: PRINT "6 .Modifier disque 

20 LOCATE 6,2 

318 INPUT "Votre choix C1e2/24 Sen "if 

É 

SCQ IF fFéé"i" OR FHè"Ee" THEN GOSUB 230%: 

GOTO 166 

So OH VALE Fi CGOSUR SFR, CO0, 949, LE26, 16 

54, 2420 | 

Ag fées pans papas nie 

354 GOTO 154 

ef REN Sonus-broûramme d'entrée des 
donness 


GPA FOR em TO 

Son CLS 

SOA PAPER 1:FEHM B:PRINT "1.Entrer des di 
sques PAPER G:PEN 1 


ang FRIHT 

41 GOSUE 2564 

44 FEIHT 

JA FLE PRINT 'Hom du disqus" 

dd TIHPUT PC: IF LENCESOn12:40 THEN F# 

Con oeLEFTSC PR GE nr, 402 

Sn IF FC Te"" THEN next: RETLEH 

469 FRINT "Chanteur, Groups" 

PA INPUT 20m Ir LENS EC mit THEN 2 

ÉneLEFTe si ns, di 

456 FRINT "Homer Code :" 

AU TMPIIT mére IF LEE né niitd40 THEM n$ 

CneLEFTSéé ae rt ft 

690 FENM Fremier affichage des dornees 
entrées EAU Premiere 


al PRINT 
ER PRINT "Vmici encore une fois les don 


EEE ert pres : 
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530 PRINT "Humero d'enregistrement "ni "es 
up À a"iz 

546 FRIMT 

San PAPER L:FEN G:PRIHT "Mon du disque: " 
PAPER GPENH 1 

SA FÉIHT Fu 

SeA PAPER 1:PEH SPRINT "Chantéur, Group 
CU PAPER G:PEM 1 

PRTHT son 

PAPER L'PEH EC: PRINT "Homer Code sp 
RO M:PEN 1 

PÉCUMT ne om à 

FEIMT 

LHELIT  MCoppok € CHOSE 

4 FAelIPPERSEE SL 0 

JE F1= "M" THEH PRTHT:GOTO dt 





2 


Et 
Ce] 
DL] 
Lt 
sn 


APE 
ERE 
51 


FR D 
4 ? 


D 0 
Et ia? 


Ë 









. de 





Fichiers E sur a. 





CL: 
PAPER L'PEN GCPRTMT ME Charooet des 
cs PNPER M :PEH 1 
tIMT 
CGOSLE 26 
PRINT 
PÉTHTUE  cbiareneagmé un fichier, vous 
sn Les cornes Ponant étre ef me 
st 
DIE PRINT 
Fe LAPAIT Mon Tente chat a cles oies 
, le Ai 
FTBELERT Sc LIPPRERME TS, Lu 
PREND THEH COTO FES ELSE RETUEH 








PR TNT "Hom du fichier" 
IHPFUT cé 





# HT F5 chrf 
LHPUT 4 ro 
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444 FRÉTHT 

£ 3 PRINT "Le Fichiær a charger "id 
Gé PRINT se compose de'ira1;"enrenistr 
emert.s " 

CIE FOR nel TO mi 

LHFUT HS, p&é ni 








Bee LHPUT 4, sg 

ce INPUT HG, nn 

So PÉTMT nm: PRINT BC: PRINT 2%: PRIH 
T'nbin 

am HET 

. CLOSETH 


224 RETURN 


SA A AN LT AE NT NT su vesatrde de 


EAU 
Eur Cassette 


Su 





ture PAPER L'PEN G:PRIHT "3, Sauvegarder d 
PAPER G:PEH 1 





er THE ir MoN leurs sauve Garder dés 1 






EC 1 "fig 
A 













TT 
FO qnéés"" THE FRIHT "Faut-il le 
der sous Le nom" PRTHT dé; : IHELUT 
LOS 2 "if: FEGeLEFTSCLIPPERSC FES 5, 12: 
es UT THEH GUTO 1678 
PRINT Ham du fichier "5 


INPUT chort 


D DRE 
ENOUT din 
INT #9, 








Û 
LIT 


PROORT les Fichier a saliveñaraetr "id 


; 


1145 PRTHT os comboge ce!oipeet os lhugreni st 


rames" 
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RQ ES Brin 


at 


JA a ie bed Pet ft Es El Rob es ps 
DU E 


Fi D LD CO ON EN Fe LP PAP) 


Bed Pt et DA LE et Heb bob j2 but jen Let fe 


Fil 


ha le 
LE Pis Fi 
12 


Fa Pi F9 


TJ Ci A = CO F3 
Do D iQ ist 


3 


Fa 
un 
Lx) 


Le 
Din 


vw) 


ar Pan me ES Li 
+ 


Ai C2 C2 69 oi C9 LE Le Po Fe 


DRE RE 


Re Gi D: 
md" ‘md 


Pod jet 
Jan 131 
DAR TA] 
 « 


FOR nel TO mi 
PRIHT #9, p#o un 
PRINT #9, s@0n 
PRTHT O#S, nf nt 
FPRIHT "1 
PETIT pin 
FPRIHT sm 
PRTHT né no 
FRÉTHT 
HET 
CLOSCOUT 
RETURH 
HE bous-pronrarnme de recherche che 
disques, Chanteurs où fuMelos 
NS 
FHMERO TPEH BGPRINT "4, Recherche de 
ques RAPER Fc: RPENM 
FRIMT 
GOSUE Zen 
FRINT 
BEM FPS ich Ge d'un BALE TUE TL 
Fechier ch SE "afgpe ‘ 
15 Hom du disque 
&t Chanteur, Groufte 
55 Haomero-Cocde 
FPRIHT "Bechepche d'apres Quel crits 





PRIHT 

PRINT "1,fHom du disque" 

FPRINT'E, Chanteur. Groupe" 

PRINT "SE. Humero-Code" 

FETHT 

INPUT "otre chaise Ciné Mif1$ 

IF f1$<"1" OR fibres THEN RETURN 

OH WALEF1H2 GOSUE 1296,1510, 1624 

fige NM Paper nie: COTO LEE 

FENM Recherche d'apres le nom du 
“disque 





A CLS 
PRTHT Mon du disque" 
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1418 INPUT P&:IF LENCRSI249 THEH P&eLEFT 


Ge p$, 440 

1429 IF PHe"" THEN KETURH 
LAS FOR nel TO ml 

1440 IE pepe THEN FRIMT 
PRINT &#Cun PRTMT fe nain 


4 

LA MEUMT 
1470 FETE 
148 ee 
145 





ÉMATES 





Ege"" THEH RETURH 
ml TO mm 
asin! THEH PETNT 


1595 FOR 
LG IF 5 
HE PÉTIT athée on PRINT néon nieniti 





RES 





413 






Le 
at 
se 


“Code” 





OCT 
« Î 


MEM PF ul 
EC A Nr 


HT 





M IF les THEH nié GOSUE 


MÉbanteut, GQroure 
SHCIF LEHCshisdG TMEN gheLlEFT 


1564 IF niss THEN nds: GOSUE 


sr] + 1 


PRINT Pen 


Da 


LOL 


2e PEN re cd'abreszs chanter 


PRINT F&on 








d'apres nuneroscude 


PRTHT FE 





Fa CLS 

1P68 PAPER L'PFEH G:PRIAT MS, Gurtir disqu 
es": PAFER O'PFEM 1 

1r69 FRIHT 

F8 GOSUG 2364 

FRIHT 

FRIHT Mhortie sur ecran ou sur impr 










MOST A EE 
ÉReUU THEN RETURN 
Be FETE IIPPE RER Us 
Ge" THEN GOT 1h 
mnptie des donnees sur 
tri teur 

PCR cel TO pri 
re … + 
IF nie THEN dati: GOSUR ES 
FR ae PEIHT Bi nt PRTHT sr 12: PART 


Hb je bd is cb loir 


2 O5: 





le 





Ha ia ps pes be DT be ie pe pa 
1 ii 5 = ir CRC 


morte ds corimees EU 

dabr ina 

PURE Te fi 2 

Cu HE 


ENT] 
Frs 


m Oyodi FA Eco 


Mes Met feat ion 
4 
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ere IHEUT “Hamero du disque Mini 
CASA reel IR nice THEH GOOGLE ESA: 







Mal ‘1E nice THEN RETLUEH 
2184 PETHT 
e118 PEINT nl :PRTHT Pond D PETHT soon 20 
PRET El rl à 

4 PRINT 
BEIMT Matter changer, CM 
















ENTER: 





PEIHT 
THPLIT 
FRIHT 
THPLIT 
on 


fe OU THEN Fe l scié 


és UN THEN 880 ni 4 





pe UN OTMEN on ec 


"Entre Four numero dd 


En GIE 


sararme FE 
RUE 


% 
iÉ 





Fu Ga Lost 
L'ECIAN 


MOETE 





AE THEN GOT San 





Fans Gerra | 





RU fs PAT 


HUE it. " 


Si97 


Tableau sportif 


Ce programme peut vous réserver de très bons moments et vous faire 
en outre gagner beaucoup de temps si vous vous intéressez au 


sport. 


Votre ordinateur va en effet vous aider à gérer les nombreux 
évènements réguliers qui émaillent une année sportive. Nous avons 
choisi comme exemple le football qui a donc servi de référence 


pour notre programme. 


Au début de la routine d'entrée, vous pouvez choisir de gérer 
jusqu'à 20 clubs. Le CPC vous demande ensuite si les noms des 
clubs qui figurent déjà en lignes DATA (clubs de 1ère division) 
correspondent bien aux clubs en compétition cette saison ou si 
vous voulez entrer vous-même une liste de jusqu'à 20 clubs. Le 
fonctionnement de ce programme est très simple: il vous permet 
d'entrer les résultats de chaque journée dès qu'ils sont connus et 
de voir alors le tableau qui se dégage de ces résultats. Vous 
pouvez consulter les résultats de toutes les journées que vous 
avez déjà entrées et bien sûr vous pouvez également sauvegarder 


: 


les résultats sur cassette. 


Vous pouvez entrer la liste des clubs et le calendrier en mode 
direct ou les modifier dans les lignes de DATA. Vous pourrez 
ensuite recharger à tous moments toutes les données que vous avez 
déjà sauvegardées sur cassette, en choisissant l'option charger un 
tableau en début de programme. Nous vous souhaitons un grand 


championnat! 
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1H PEN Tableau sportif 
24 FEM Frogrammes Basic Pour le ee 464 
34 FE CoPuright 1984 CATA BECKER 
Faire one 
AA TIME GT:THK 1,24: THK 201, Fd'offetetiun 
ormalzi:FEN L'PAFER A 
24 MOCE 1 
24 INPUT "Charäer un takleanu CO if 
mé MODE 1: FÉSUPPERSE FRUCTE LEFT fé, 1 =" 
Q" THEH GOSUR FA: GOT 534 
64 FENM Choix du nombre de clubs 
de 4 a 45 
FA OIHPUT Combien de clubs Cdééss TRS TR 
L4'LESTS ou 241 "if 
SA REM Liste des variables Qui sont 
dimensionnes avec leurs 
significations respectines 
FENM 460 znom de club 
fé, tspencontre ayant en Lie 
ss Jeresuiltat 
ef. tetotal buts 
FO, etotal buts encaisse 
194 REM 96, üztotal matchs gagne 
Hé, etotal matches ouls 
1 ose matche Perdus 
HE 4 . erencontres jumelees 
#1 bis zSsPo routine de tri 
1184 FaMALC FU TE FR TUTÉ PSE TMEH PFRIH 
T'GQSUE 1294: GOT0 54 
124 IF éd OR F2 THEH GOSUR 1234: G0T0 
1 
125 GOSUR 134: GOT 144 
LG DT ae fn Hé FER F2 CP, F4 
FO EF, QC FU nl FU IC PURE Pet 
HN Me FILS satPil ea el 
F4 
144 FEM Entree directe de noms de clubs 
ou entree des noms de clubs 
a Partir des lignes de DATA 
ie IHPUT l'Homs des lines de Programme 
Ce MF 


D 
= 












21502 


166 FESUPPERSEES FEI IF LEFT#CFS, 1 1e" 0" THE 
H GOTO 254 
174 FOR x = | TA 
1864 PRINT "Clubs: IHPUT Mi of 
194 IF Fe" THEH GOTO 154 
SGAIF LENCFHR0%16 THEN a&é nozLEFT#e fé, 14 
1 ELSE aginoiefé 
14 HEËT 
sen GOT 354 
234 (IH à er L'af, so 
SA, 274, F1, FE, ; 
SA, SE A 
247 GNT ET 
san RESTORE ESSG: FOR nel TO F:REAC ao 
MEET mn: :RETUEH 
CAR RESTORE ESS FOR nel TO L:REAC an 
NEAT n:RETUERH 
or FESTORE 6CS0: FOR mel TO F:READ af 
MEET ve: RÉETUEH 
LA RESTORE ECG EOR mel TO L'REND a$0ni 
MENT ne FETUEH 
SOA RESTORE SA: FOR os1i TO F'REAC 380: 
HET ne ÉETLIEH 
2H RESTORE CAB: FOR nel TO L'REND a$l ai 
MEBT  FETUEH 
BA FESTORE 61FA:ECE oe1 TO F'ÉEAD aka 
MEET re ÉETURH 
Men RESTORE USE FOR net TO FRET an 
MEUT :RETUEH 
SE RESTORE ÉGSCGECR nel TO F:READ afin 
MEET ve FETLRH 
344 FENM Le calendrier én lignes de DATA 
Causterme habituel peut etre 
utilise, mais il est egalemer 
passible d'entrer som Bros 
ca letdrier 
HA INPUT "Calendrier en lignes DATA CO 
si: FÉSUPPEREE FHCUSIIF LEFTHC ES, 1e" 
THEH GOT 428 


Fri 





tv 
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364 PARINT:PRINT:PRINT 

e calendrier avec des 
Téwirau le? CENTER 

derniere entres! 

SPA FOR ne TO #1: FRTHT:PARINT:PEIHT "lo 

urnes: FRIHT 

3884 FOR mel TO F2 

234 FRINT:PAINT "Matehinm: INPUT 4,2: TF 4 

#f OF kif OR ak THEN GOTO 394 ELSE IF 4 

<4 OR be THEN mem-1:GOTO 94 ELSE Em 

Alieachkénm. 2 iek as he: PRTHT ak Com ms 

Linie Mage KE moment 

AAA HEAT min 

414 GOTO 554 


"Wanillez entrer 1 
chiffres CExerme le 
A Pour renouveler 


+24 OH + 


GS 
4, EU, 44, 47, ddl, 


LE 444, 44, 


44,514, 444,524 


424 GATQ 
44 ee 
TO Féé REA 
ETURH 


454 FESTOFRE : 
TQ F2: READ ke 


ETLIEH 
AAA RESTORE 
TO F2: READ 
ETLIFH 
47 RESTORE 
TO f-2:REAC 
ETLRH 

af a 
TA fe: HEAC 
ETUEN 
4 FESTORE 
TO F<E: REA 
ETUEN 
GC FESTORE 
TO f-2:FEAD 
ETURH 
14 FESTOFE 


234 


SAGE ve 
EE grinms L 


al GE: FO 
KE ts 1 


HE 


S1sE: FOR 
HE pra pies À 


nel 


aéesa: FOR 
EE 1, 


nel 


me: FOR nel 
" 


l: cé 


ad: COR net 
EC res tt Lake 


BAR: FOR mel 
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HE, et, A, 


EE Ta 


EC 


KO: 


alta like, 


Hd, 46, dd, dti 


La 
447, SA, à 


TO F-1:FOR mel 


enems ECMENT monte 


TO f-1:FÛR mal 


Etre SU MERT mnt E 


TO FT ER mel 
rs SU MEËT man 
TO FT ER met 

rs SU MEMT mini 


TO FLEUR mel 
mu PHEËT min 


TA F1: 
ne en HE 


FOR mel 
iT mince 


TO F1: FOR mel 
MU MERT mani 


TO FL: FÛR mel 


TO FAR READ kms ma 1 2 kG'mam 2OIMEAT mintR 
ETURH 

224 FESTORE SSS8@:FOR nel TO f-1L:FOR mel 
TO FE: REND ke 1 kms 2UHEXT montR 
ETURPH 

239 MODE 1:PEN effet: LOCATE 7,7:FPRIHT CT 
ableau des Clubs"; PEN normal 

44 LOCATE 7,14 
ao PEÉINT "1,Entrer journee" 
564 LOCATE 7.11 
mr PRINT "2, Afficher tableau actuel" 
564 LOCATE 7,1% 
ag PRINT MS Examiner Jupes" 
AGE LOCATE 7,12 


194 PRINT "4, Sanuveaarder tableau actuel" 
SGA LOCATE 7,15 

614 INPUT Méébre choix CT a 41 "if 

ESA IF VALEFRIET OR VALCFSird4 THEH GOSLIR 


1274: GOSUE 1294: GOT 474 
ESA OH WALES COSUE 66, SGA, 14184, 044 
Ed4A CGOTO 534 
En RENM Entrer iouroge 


S64 MODE 1 

érA THPUT "Quelle journées "iFS:IF VALIFS 

MA ÛR VALCFHRISTEZZ THEN GOSUR 1294: GOT 

O 674 

SGA IF VALE FH ET 1 THEH GOTO F4 

ESA FOR 1 TO F2 : PRINT Match" in 

rai TF ORE MALE Fine A THEN FRINT CHRGCT 
nilEprenet Resultat corrs " PÉTHT a@CkCY 


ALE FH om Loi" Mi a$é KE WALES I nm Lt" 
CE EE MALE Fm 1 9 VALE FI, Lite" CC ke WALC 
Fi, 1 1, VALC FH, Si: COTO F3 

F1 PEIHT 230 kCVALE F$ in Lun" — "jagike 
MALE FE mani: INPUT 4H: IF 499 THEN PR 
INT Mara Le V'ALE F8 0 te: GOT F4 ELS 
E GOSUE 94 

FER El WALES 4, rl CC RE MALE 4 1 nm, 1 2, WALÉ 
Fu, lisa CC KE MALE SE 100, 1 1, MALE FSI, Liebe 
CE VALE FE, nu 8 VALE F2, 1h cé hé VAL F0 
arte et MALE FH, ea 
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SA HEËT n:RETUEREH 

F4 FOR vel TO FÉES PRINT "Match" in 

Pan IF EEWALEFR ns THEN FRINT CHR&E 7 
ss"Erreur! Resultat connu: PRINT afikew 

ALC FR T4 TL ns BA Met ae RC MALO PS ef vs 
Loti ee KE MALE FE SAT pes 1 D MALE PF 1 5 
Mn CE KE MALE PS fl os 1 0 MALE PS 0 2: GOT 
reñ 

FÉR PRINT a@c ke MALE PE el es nn M ue M 

Be le C MALE FR PT rs 1 05: INPUT 4H: IF ax 
THEH PÉIHT Marron Le" ie WALES 0 ee: GOT 
Fag ELSE GOSUE 64 

FPE NE MALE PS ml 2 KO MALE PE el ns 1 
MALE PS 5, 1 uma: CCE MALE FE ef 4 es 1, MALE FE 
1. eh ee KE MALE FE ep dt on 2 MALE F1 ects 
LÉ le CMALE FE ef re 2 MALE PRO, Zen 

F4 HEËT cn: FETLRH 

FA4 ec ke MALE PS om À imec ke MALE FE, ms 1 14 
at FE RE MALE FE ns ms 1 PE LC MALE RU re À ti: 
ef EC MALE PS a met RE MALE Pi en Et rs 
LC MALE ER om En me KE MALE PS on ea 

SRG IF ask THEM Hé RE WALES, es 1 1 mt Ke VA 
LE FR a À NT HE KE VAL F0 vs NS KE WALE 
FH 

BA IF ak THEH GC WALC F6 0, À mage kCWA 

LE bn À et DE RC MALO PS a mi CEE WALE 
Finite 

BeA IF af THEH CHE WALES LH um ie ECM 
LC y À ns Qi ke MALE PR, es ie KE MALE 
him nike 

AA RETLUEH 

8449 efké MALE FE USA T on 1 met KO MAILLE FE de 
Laon 1 ba FE KE MALE ER ef on, À PRE WALE 
FUEL AT na 1 his et LE MALE PR eff on, 21 mel 
KE MALE UE AT res 2 9 ns PO LC MALE FA fe] 

BR RE MALO FE AT os Ent 


HE MALE FE PET rs 1 EL HC KE WALES el on 
e 3 1=hCKkCVALE ES ef +] ns +1 
BAG IF ah THEH ACECMALC FE 4 ss À 1 QC 
kCVALE FE OF 41 3 1942 CRE VALE FBI PH in, 
Him ie EC MALE FH I + on Lite 


12h 


SPA IF ak THEM CHE MALE FE PT us 1 mil 
Les MALE FE PAT so LR QE RO MALE FE ef 4 ni 
2e ke WALES pl ns rite 
86864 FETUEH 
SA PEN Afficher le tableau actuel 


300 MODE &':GOSUE 1154 


914 PRIHT'PFI, Club Matche + = 


—. Loal average € Faits. FT 
A2 PÉTEIT STETHCEHE PA, Mets EUR ei TO $ 
S54 FRIHT 3 TAEC on nes 
Zn 4 I AE Zn MES 4 LC EC nn te Zi THB Ed 


" 


QE ge es TAC 5 Me EC 2 s ; TRE Hdi ir 
enr322: TABC 4 diet 296 mn 0: TAEC dS inf 2 


G4@ PRINT TAB SI 3e Se PC me 0: THE 
Re QE mp bn Se on 0 TAB EG 


SA MEAT 1" 

SA PRINT STRINEHE SPA, Men 

FA PRINT TABLE MA MC APRNUEZr SUR Une LOLT 
he SUR, 

SA ASS THE NS: IF Az" THEH GOT 364 


2934 FETURH 
AA PER Eee rue JL TUE 

GT CLS: PRTAT:TMEUIT "Tete La saison C0 
# NOM PR PRSUIPPEREC ETF LEFT F4, 1 =" 
d THEH QT 11H14 
IR PRTHT Mloupnes COL AM FER: THPUIT 
Mn M:FG:IF VALCFHOCI OR VALÉFHUIFEZ-Z TH 
EH GOSUER ESA: COTO 14884 ELSE IF VALLE Ci 
F-1 THEN GOT 1468 
LEA MMA EP CS PORT MT M les eegres 0 os BRT 
MT: FRTHT:PFERTMT : FOR mel TO FES PRINT m:iTA 
EE 1 AE KE na re À TAB 1 a RC KO ps 2115 
AA TE Elrmiet THEN FRTHT TABC HUE UN 

FIRE PRTAT TAB nee ke ga pres À ms Lt 

MU TAB GP mé bed re me La PU 
ET me PETITS PRTHT CCR EPA: GOT 
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1464 n=VALEFS CLS: PRINT "Jouroge" oc nen 
(Cf 1: PRINT: PRINT: PRTHT:FOR mi TO pre 
PRIHT m3 TAB S 5: a @C KG 0. nn TAB 14 agek 

Con tta 1 13 THBC EG 5 

1474 IF bn mizl THEH PRINT CékCmms 1 tn 
RU TARE AT NME TARC RS CE KE Ma ts À am 17 
ELSE FRIHT " =  : nl 

1460 IF Héntéf-1micA THEM PRINT THEC 32 
mit ot mt ELSE PRINT TARBES ee re 1 
arf 1 TARBES a TAROT D cé KG me À 
ant 

1494 HEËXT rm: PRIHT:FEINT:GOSUE 1274: GOT 
1174 

1184 FOR oz1 TO FT CLS: PRIT Monroe tt 
fe PRINT :PEÉTNT: PRINT :FOR mel TO FE: PRINT 
pi TARBES ii a 6e kom re 1 10 TAB 15 3 a 60 KE re ts 
TU: 

111 IF Hévmiza THEN PRINT TARCGG it 

"5 ELSE PRINT TABC GE ec ke om 13, "ts 1e 

à TARE GE ni MMS TAC GT ice km ms LU 

112 HEXT m2: PRINT: PRINT: GOGUE 1270: NES TT 


3 
1 
3 


1 
1154 FOR nel TO FL: CLS: PRINT "SpFieltag" 
inf 1: PRTHT:FETHT : PRIHT:FOF mel TO F2: 
PRTHT pi TAC S ae kon res ni TEE 14 ni a $C ke 
on Ma Li TAB ES 
1148 IF Hémmozd THEN PRINT "M es Ms E 
LSE PRINT £ékGoms om, 1 ms TRE ET M TA 
FER ee Ce fs À als À 15 
11564 IF Ebénétf-tomist THEN PRTHT TABG SES 
Mn oi mets ELSE PRINT TAB GE ace ke ms 1 
rtf 1 1 TARBES MN TARN ee ke mans 1 
rebf ls 
L1EG NET re: PRINT: PEÉTHT:COSUR 1LEFA:HEUMT 
1174 RETLIEH 

BA PEN Sousepont ie cle ei 
1 É 96 FOR nel TO filé nm oeg a té on ré ni 2 
Re nie FE ne TG nee ne md nie MEET 
120 FOR mel TO # 
1214 FOR med TO # 
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128 IF zitmoirzdins THEM zélnizzltmiias 
m:GOTO 1254 

ESA OIF zitmiezdint AND géfmiizec an THE 
HO zgdéhiez lé mo: am: GTA ee 

1e IF zlémiezatnt AND zéfmiezeé a AHD 

smart an THEH zdinie 21m: at 

25 a MEMT mixé a ete nes : amf 4: MEËXT 
rt 

1264 RETURN 

1274 FPRINT:PRINT TAEC FUME ARRUMEeZ Ur Un 
a touche E,w, PR, 5%" 

LESA AaBSTNÉETEIIF aéeUt TNEN GOT 1284 E 
LSE RETURN 

1299 PEN effet: PEINT TABC1ZN "Entrées inc 
arréecte UPEN rostra l'E GOSUR EF: RETUEN 
AA FENM Datas Four 4 clubs 

CATA 1:43 
CATA dl, 
DATA aid 
FENM Mat Feu 


ms 
pr 


D 


1 oi 19 : 
RE 
Bi 


Re 
EX] 
qe 
il 3 


és CLURE 





Dex] 


C'ATA 2, 
CATA 6: 
DATA 3: 
FEM Cat 
DATA 
C'ATA 
CATA 


nm © 


DD NA RDHPNE 


_ 

ni 
1 
ist 2 


Eu 
SR ES :S 


CA mi Fi En M Fe 3 js 


D 


Eat Pt 


EP | 
= 


iQ à 


IT 


Oro 


Er) 
3 
Eu 
”_ 
T 


DATA 384,8 
C'ATA 
DATA 





D DEN 


Si in 


LA ER CA CA A A CA ES CS CA A A A EN CR CS RER ON NN 
en par A a Es —.i 





PUY I Jet ob job eh ob Rob jet foi ja 


Eire | 

(el Las Peur 14 Tube 
SA DATA LI dir 
AE DATA 1e aa ds 4 lu 
14 DATA PSI La ds ob 
DATE TE TEE Ga lors 
A DATA 3,14, atalofida rat 
Ded4 CATA 14,8: alibals ass 





! 
_ 
[ES 
T 


in En 


D D St 9 QD Soi in 


LY 
a" 


D 


1 LD: 


î 


Lili 


Le La) Cat at 09 10) da) Po La Fo PU id 


D LÛ DO 4 ni LA 


x 
IR im: 


13) Le) td à 


2 


ER ES CA A A EN EN EN CN EN CN ER ER CR An A 


FRERE 


Fa 


a : 


IT 
x 


A 


2 DATA 


4 DATA 


1 DATA 6.14, 


JS 6 
DATA 19:91:82 
CATA DFE 


REM Data: 
DATA 1: 

DATA 12,7, 
CATA €: 
CATA 1 
DATA 1%. 
DATA 
CATA 
CAT 
DATA 


TM 


mme 


URL = 10 = 


Le % 
2,3 


F 
Î 


2) 10 


Je Me: 


D = = 


- Ù 


OO NID. 


= 


r. 
Ü 


Ha | 
Fi 
mp 

mi Der eee + A 


test 
126: 
CATA 14.:11,1 
DATA 61 
BEM Datas Fur 1 
GATA 1:14,Z 


Rime 


un” 


Ÿ 


DATA 14. 


Ge] 
Cost) 


C'ATA 
14,:9,14.5, 
14,4, 
14,:14,11,%, 
H 4,14, 
DATA 14,11, 1%, 
C'ATA 
14,1%,1%, 
DATA 1: 
add 


MEN Datas Pour 
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11: 


dise t 


1, 


ee mie = ce 


(Dore umt + RENME 


PA 13 CR 44 1 


14611: 


Fo ls CRE 


14.13.94. 


ma ls di a fi 


e De ve 


er = me de & 


fi 
pl 
,3 
. pe 
13,4 


Libre 


4,11:5.14.6,3 


DS Re rdc FE, fe ie pa 
rider): mms 


D “ 


me if D 


(A 


Faléada 1: 


11h16 lil, 


“M F 3 Let 


mie BR in io 0) 


14, 
Fin 
"11 


A 


it À 


14,5,1,4,1%,8186111,7,184,8 


4,2 


en 
4 


11:%, 


va a Pa ta 


aa 


ss 1: 


16 Clukrs 


sé 4 


+14,13:11: 


CRE TRES 


14.,%#,11.1,1%. 


SX 


Le È 


ail 


2 


1,16,2:1%,3,14,:4,13,5.12:6,:11; 


DT 


ue 
BD- TD 


D 


16:9,14,:8,11,7,12,6,13,5, 14.4, 


39% 


10 
D-2D- 
ÉRREE 


Ssléi lili 146 13,7,12,8 


N- min in 


Dee Mr 


22- 


2 


16,14,11,4,14,6,14:r:14:6:15,3 


mir 


1 
D- Dr. 


10 - 


D 


cn 16: 4 à Lolo srl, 134 


Hein. 
JAM INEA ER. 


TR - 
Dre Lit iQ mm D RD - 
= FLN - , 


H 16,:11,12,19,1%,9,14,4,1%, 71,6 


A 416,362, 731,8,15:9:14,14, 


Pt Hs 


£: “LA 


<J 


5 
1 


DATA 16:12:13,11:14,14,15.9,1.8,2, 





: 
“DATA S,16:6:4:7,3,9:9, 91,10 18, 11, 


HE 
Le ted £ 
14,12,15 
644 DATA 16,15,14,14,1%,11,:1,14,2,%8,8 
RNEETE 
mé CATA 6,16,7,5,8,4,9,53,14,2,11,1,1%: 
1 3.14 
œ “4 


Le 
4 13. 
ne CAT 16,14, 1% 1%,1,1%0411,5, 16, 4,9 


SFA DATA Flo 645, 14, 4,11:3,12,24,1% 


. 


VTota,te 

sf Fais 

5699 DATA 8,16,9,7,19,6,11,5,12.4,13,3;,1 
4,%,1%,1 

576 RENM Datas Pour 18 € 


ii 


rs 
= 
Dal 


A DATA 1. 1RuBilri miles ldi 6, 13, 

; atalliisi tif 

26 DATA Lit Ita Le LR 7 4,619, 
1 





5720 DATE 2,18,%:lid 17,9, 16.6, 157, 14,8 


748 DATA 18:11:12,10.13:9:14,8,15,7.16, 
e 17.814,23 
aran DATA 3,14,4,2,9,1:6:1%:7:1638:1519: 
14.14,17.11.1% 


2190: 


Ti 


1 
SLSsSE us RSS 


Ha 


LD En 


Ni. 
0 DD J 
P2 


ps 
Fe. Le 


== 


HD LS GG eme- 1- 


DH DIEM. 


MMS Ne ES - 
10 - 


JT 
ne ne OU 


CATA 1e 12,13 


CATA 18,13:14.1® 
sPidiftidis 
ATA 5,146. 4,738, 


15: 


D 
do 
0 


ATA | 


11:14:14 19:9,16.8,17 


18,5,%6:2,7 108: 


rs 


F:316:14, 


sF11:6:2:%:3:4 
S774 DATA 4, 
1#11;14512,10 
SRE 


2.11.16.14,1 


D 


LD 


1 


2:9.1.14,1F,:11, 


13.14 


ml 11316, 1201711, 1,148 


3 14:7:5.6 
Sa1A DATA 6:18.7:9.8,4,9,2,10,2,11,1,12, 
17:18:16:14,15 

Se24 DATA 18:15.16:14,17:12,1.12,2,11,2. 
1A, Ses 67 

S034 DATA BB:6: 9% 14:4,11:3.12,2,13 
11417119, 16 | 

Se4@ DATA 18,16.17.19,1:14,2,12,2,17.4,1 
1:5.18.6.9,7.8 

S2S4 DATA 8,18.9,7.10.6,11,5,12.4,12,3,1 
4,2:15,1:16:17 

Se6A DATA 18. 17,1. 16:2:1%:8,14:4,13,5,12 


Eu 
mp min 


DDAJTD- 
NE: 


7 - 
no Lire D. 


,1 
REM bat 45 Four 


sEtsrites bel 


M cute 


ne 


DATA 1.,24,; 


4.17: 
DATA 
ile 
Ur 
Er 


Sa: 14, 


SA lË 


PTE NE TE LL 


1 


14,4, 


5 ! 


a,17,1A,11 

CR 11, 12 . 13.:9,14,8,15, 7:16: 
4,:19,3,1: 

CRU PEC did,18, ol 
14, id 11+ 


18617, 816.8 


(a, 





11:14, 18) 


Tor ler es 


A 


S924 “DATA 29,12, 








slider 

af 3:204,: bio r mb riTs 
16.18 15 Lidl 
2949 CATA 24,1%,14,12,1%,11.16,14,17.9:1 
H48.14,7,1.6,2,%3,4 
AAA DATA EG SE, F1 SI STE, 10. 
171141612418: 15,14 
2964 DATA 24, 14,15 Am TES AE AR, TT, A, 
ER 2726148 


A DATA 5 r46,d4,778mm41.14,19.11: 
:.1#,17.18:16:14.15 
4 DATA 24,1% 16:14171%18:12,19.11: 
Hilo 84 7356 
34 DATA 6,280, 76484940%4148:11:1:12: 
13:18:14; 1r.1%116 
CATA 2 Lure …1814,19,13.1.12,8 
m1A 4, ASE, 
CATA 4 6.9 n.14:4,11:312:2,13 
14: 13: 1%:18: 16,17 
DATA 24,17:18.16:19,15%,1.14.2:13.:3, 
11155 ILE ACTE 
DATA EPA 7146115812 4,13.2.1 
1511618 ie 15 
e.141417:1.162.1%%14,d4,1 
2 | 


M- Mer inif 

Jim IQ IDD - ID MED 

RE Fe mr iQ 0 D ms 
e rh 


DR 
De 
. =, = a D 


pv) 

A 28 Be Po 
&° 
No in 
D: 
3 : 
D: 


- Me DM LPei.e 






GS DATA H,24,14,8,11,7.12,6,13,5, 14,4, 
3:9,16:2,17:1,:18,19 

Gé DATA 2H, 141.18,2,17316:4,15.%.14 
El 12,8,11,9.14 
GAFA CATA 14.24,11.9,12,6,13,7:14,6,1%.5 
164,118 19,1 
SGA KREM Cat Pour Le championnat de 


Frarice 1994-85 ler Aivision 
Fsemé Le avec 24 clubs 
SAS CATA Hantes, Toulon Brest. Lille,Pari 
5 SG Mancs, Bordeaus, Toulouse. Bastia, Mora 
Co Tours, Laval Aurkerre, Strashtrs, Metz, RC 
Paris, Les. Poe, Maps t ia 
ELTA BEM Datas Poe 16 el 
169 OATA AE CCE. Fi Gi H 
14 DATA de Ce 
' FENM Datas Pour 14 cluks 
A DATA HEC ES RG 
4 DATA HiTi LE LM 
1 PEN Catas Pour 12 Clubs 
4 DATA AE 
4 DATE CGT. LES! 
CA BEN Daktas fois 18 clubs 
1 DATA FLECCE 
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DATA FoGoHil:J 
REM Datas Pour & Clubs 
CATA H,6,0.0 
CATA EF:G:H 
FEM Catas Pour & Clubs 
DATA EC 
FENM Catas Pour à Clubs 
FEM Datas fier 4 Vereine 
nie DATA AE 
ASTA DATA C0 
FAGA MCE 1: INPUT '"'Hom du tableau"inonmé 
FA14 QPEHIH MID or, 1, LEHE org 1: TMPLIT 
#9, F:GOSUR 1364 
Fan FOR m4 TO Of: INPLITÉHS, ae 0 ef mn FO 
1, roma ii MERT m 

HSE FOIE: mef TA FEL:FOR pen TO #2 THPAIT 
a HE pm MEAT om 
FRA FOR ef TO F:FOR cf TO FEZ-Z: FOR © 
<4 TO ES: IHPUTHA, Creme M MEET Gaom 
FASG FOR me TO fF-L:FOR ne TO FR FIRE 0 
A4 TO SZ: TIHPUITHSG. KG rem QU MEËET oo fm 
FAa44 CLOSETH:RETLUEH 
AAA MODE 1: TMEUT "Mon di LalbTleanu "ti ronmk 
SALA OFEHOUT nork: WETTEHS, 
SALA FOR met TO F:URITERS, 26 r0 9 ec mt FO m 
M QE ra ns DÉMOS HERT 1 
SASG FOR mA TO LEZ: FOR of TO FA URITE 
HA fé tas et MEET nm 
SAd4A FOR men TO L:FOR nef TO Fest: ETIR 
= T1 = th 114 ITEHS : CU ff a “1: HET CPR RE 
SASA FOR me TO FLEUR eg TO FR: EUR © 
ef TO SURITEHGQÉHE pra em MEET oamam 
AAA CLOSEOLT : RETL JE 


HN RE) DID 


TD PPMMNPDM 
2) 2) 9 9 EQ EQ Pa F9 
DRASS S 
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Il est à craindre, comme c'est malheureusement le cas pour la 
plupart des ordinateurs familiaux, que l'essentiel des logiciels 
disponibles pour le CPC 464 ne soit dans une première période 
composé que de jeux. Nous avons essayé de montrer dans cette 
collection de programmes qu'on peut également faire des choses 
plus sérieuses avec un ordinateur et aussi qu'on peut essayer de 


comprendre un peu mieux comment il marche. 


Mais nous n'avons rien contre les jeux et c'est pourquoi nous vous 


fournissons également dans ce recueil un jeu complet de Cameroun. 


Nous avons ici utilisé les capacités du BASIC du CPC. C'est ainsi 
que nous avons créé quatre fenêtres différentes qui permettent un 
affichage très simple des entrées, directement avec les touches 


fléchées. 


Nous espérons que vous connaissez les règles de ce jeu (chacun 
doit essayer avec 5 dés de remplir les 12 conditions prescrites). 
Si ce n'est pas le cas, consultez un livre de règles de jeux ou 
essayez simplement de déduire les règles en jouant plusieurs fois. 
Disons simplement que vous avez 12 tours et que vous devez essayer 
avec 3 lancers de dés chaque fois d'avoir finalement le plus de 


points possibles selon le barème du jeu. 
Le CPC ne lance pas simplement les dés pour vous, il place en 


outre les dés dans un ordre croissant. Vous pouvez sélectionner 


avec la touche COPY et les touches curseur les dés que vous voulez 
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lancer à nouveau. Une fois que vous avez lancé les dés trois fois, 
sélectionnez avec les touches curseur et la touche ENTER la ligne 
du tableau dans laquelle vous voulez finalement placer votre 
résultat (si vous avez beaucoup de 6, dans la ligne des 6). Vous 
verrez d'autre part apparaître chaque fois le nombre global de 
points. 


Voici comment s'effectue le décompte des points: 


de 1 à 6: seuls les dés correspondant au chiffre choisi sont 


comptés 


Brelan: si vous avez un brelan (trois fois le même chiffre), tous 


les dés sont additionnés 


Carré: si vous avez un carré (quatre fois le même chiffre), tous 


les dés sont additionnés 


Quinton: (cinq fois le même chiffre) 50 points 


petite Suite: (au moins 3 dés se suivant) 30 points 


grande Suite: (au moins H dés se suivant) 4O points 


Full House: (un brelan et une paire, Ex: 33355) 25 points 


Amusez-vous bien! 
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FENM Cameroun 
FEM Frogrammes Basic Four le CFCdéd 
FER Copyright 1954 OATA BECKER # 
Rainer Lugers 

IHE GG 1: INK 1,24: TMK Zi 4 
FEM Preparatifs 
MOCE 1 

INPUT 'Horbre de joueurs C1 a 4 "io 
AI IIX REA 
54 IF ioueuracl OF joueursïdg THEN GOSUE 
SA: GOT EMA 
DIM ent joueurs LE, Jenudé joueupss LE 
FOR el TT jouent 

PRIHT:FARTHT "onenr "im Mi 

INPUT doneut ge on 

IF LENS iouteuréénaiss THEH ioteutr m2 
=LEF TH ioneur Sen 30 
A IF LEHE ioteuréniizz THEH Joueur Se ni 2 


11 Pa re 
% RARES ET 


—, 
ee 


= 


JM CA E 
9 


LE 
a 


œ D) 


15 


Lt Pi me DE 


SOU. 


LOL SE on 
SA OTF LENMÉ joueur uniiel TMEH one on 


Jouer ot" U 


A IF LENS ioueur$é ni THEM GOSUE ec pal 
Îf- 


RRIGÉRIDARSEN 


14 HEXT 
af MOCE 1 
34 FEM Fenetre PEUR Le Jet des des 
AA MIMDOU H1,8, 53 ‘1.6 
‘1 FENM Fenetre Pau tableau resultats 

6 MTHOOL HE, ZX, 46, Fe 
Sun PEN Fenetre Pour 1nformat ice 

A LMTHOOM #3, 1, 44, 24, Ed 

A MEN Fenetre Pour Choix Far FaFrort 

au tableau 

ESA MIHOO #4, 1,1,9,%1 
srA FEM Fi: ar Lon es Couleurs 
can FAPFER #4. Z2:PEN #44. G:CLS #d: PAPER HS 
S:PEH #54: Le Hd: CLS HS:PAPER #1,Z2:FEM 
HIGICLS HI:PAPFER HE GG PEM #1: FLE He: 
CICATE Hd. 1 IS: PRINT #4, CHR 1450: 
ESA RENM Construction du fableau 
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364 PRINT#Z, "Mon du joueur 2 "i:FÛR ne 
1 TO joueurs: PRINTHS, joueur" Mi iME 
AT NE PEÉINTRE: PRINT : PRINT, MT meme eme meme 
en VS RTS M a mue ou mn M: PRINTHE, 
M en ou a en M PRIMTHE SM eue nn neo ae anne vu 
PRINT HE, ME eue mn ou me meme 1: PRET MT HER DE 
LA PRINTÉHE, Bree lanm mme 1 PET MTHE, Ca 
PQ eee uen me M PRINTHE, Mn MR eee Ur 
FIHT #2,'"Fetite Suite e' PRINT KE, "grand 
& Suite 'UPRTMT HE, FUIT Houge tt: PART 
HT HE, STRINGHC SE, MU: PRINT HE, MFoints — 
Se FEM Lecture de la forme des des 
en lignes de DATA 
HS RESTORE: FOR ni TO 6:FOR mzl TO SZ 
ZA READ abimemiMMEET min 
SO RER Debut Qu Prcaranmeme Peine iE a 1: 
Jen en LE tours 
SEA FÜR rondezi TI 14 
Sr FOR rondels1 TO joueurs 
SEA CLS #5 
334 LOCATE HSE L'PRTAT HS "C'est le tons 
Fe MioueueéEé rondel 1 Tone "ironie 
Aa FEM Produire % nombres aléatoires 
entre 1 et € 
Aie FOR mel TO 
AA RANCOIMISE TIME 
HA a TMTE LGUCES BND TIME 4 
4 IF ait OF ae THEN GOT 424 
AE orne rien 
dé REM Representation des des 
FA FOR mx TO à 
SA LOCATE #1 am mi 
GA PRTAT #1, aff a mel 15 
A HET mHEST 
A1 FENM Saut 4 14 routine de tri des des 
act GOSUE 356 
as REM Chadue joueur a droit 4 
trois lancers Far tour 
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FOR comPteurz1 TO 

BEM Saut a la routine de 
modification 

GOSUR 824 

CLS #1 

FOR ns1 TO S 

FE Froduire 5 nombres aleatoires 
entre 1 et 6 

IF waéniel THEN FAHDCOMIZE TIME :4ZIHT 

EUECRMOCTIMESSIF 461 OR 436 THEH GOTO 

SA ELSE nombre nisa ELSE asnombte( 

CPAS 

FE Febresentation des des 
corresEondants 

TE ON ETS 

FOR mzz TO 4 

LOCATE #1: nESs, mi 

PRIT #1, 46 a rl 5 

HET mm 

MEAT 1" 

FENM Saut a la routine de tri des des 

GOSUR 454 

MEAT Compteur: come teint 

FE Que faut-il faire du resultat 

LE 1424 

HET ronde, ronde 

FER Fin du Jeu gt Questior: 
Line autre Partie 

M AaGeTMNÉESS 

GA OTF az" THEN GOTO FE 

FA CLS 

“sA INPUT "line autre Partie € Hi "ia 

FAO a Ge lIPPERSEE a 0 

GBA OT LEFT#C AK, 1e MNMUOTHEH END ELSE RUN 

REP Poutine de modification 

LOICATE HI, PRINT 41, CHEGE Ed 1: 

ae TNÉE" "SE 

IF a$e"" THEH GOTO SA 

REN Touche avec fleche ‘aauche* 
ent ic ens 


Re) 
BR 
DA) 


CnEREn En 


AO OT T4 Pi 
Ro iR Li 


LR y] 
Fm io 


D 


ER © 


er 


Ti 2 
Ha = 
12 


D 0 0 0 0 9 0 9 D 1 1 





AE Te Pi Pi MM 
1 Pa tes QU 0 IT CS & 1x 


EX 





(u 


Fe, 
À 
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86 IF a$S=CHRSC Ed) AND POSE #1 154 THEH L 
OCATE #1.:POSC#H1 IS: PRINT #1," "5 :LOCAT 
E #1: POSE HAINE SG PRINT #1, CHARGE Zdd à 5 : GOT 
Sra RENM Touche avec fleche ‘droite 

enfonces 
264 IF ab=CHRSE ES AND FOSC HI ME ES THEM 
LOCATE #1. POSE #1 2-1. SPRINT #1," "is LOCH 
TE #1. POSE HI td, Sc PRINT 41, CHERE Pdf 5 : CG] 
T9 854 
294 REM Touche COPY enfonces 

Ceffets inversion affichage 
396 IF abSSCHRSE Led) THEH GOTO SEA ELSE 
IF af C POSE HI 141 25 e1 THEM taf POSE 41 2 
+12/50S4: PEN #1, 2: LOCATE #1. POSE HI 0-1, 1: 
PRINT #1," "Si :PEM #1. G:LOCATE #1, POSE #T 
4 ELSE a6 POSE MT 41 1 el : LOCATE #1, F0 
Se HT i-L L'FRINT #1, CHRGE 24903: LOCATE #1: 
POSE #1 1,5 
Si FEM Touche <ENTER: enfoncer 
Se IF abeCHRSE 121 THEH RETUEH 
GOT SA 
FE Foutines de tri des des 
FOR nnzsl TO 5 
PEN LNET 
HET vin 
FOR nul TO 
GA FC rmmæl TO 
AA IF nombre ram er mnt THEM ré ren 
ces rares 2 Con tac rar ce Maries 
1A1E HET rm 
1G24 nombres marque der 
154 HEAT mn 
48 FOR onmxl TT 5 
Donne nn EN Te 
MED ES LTT TE 
HET 
COLE #1 
FOR nel TO 5 
A FOR mms TT à 
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LH & 12 
NEA EL | 


ou 


DO M 
EXENX 
D ER: 


a D LD AD LD LD LOL 
ee ; 


Li 


RD 19 19 
at 1) 12 52 


bed Leh fee jte jt 
EX 
x 
Hi 


Ci! 
EX 
7, 
a 


1114 LOCATE #1, mo rar PRINT #1, a4#0 nom 
Eee ri 2 al 5 
11284 HEXT rm 
1154 HET nn 
1144 LOCATE #1:1.6:FRINT #41, STRINGS#CS, CH 
Fe 14%)" Lancer"; comp teur]: STRING, 
CHF 1 43 11; 
1154 FETUENM 
PEN Forme des differentes faces 
de de 

FEM Face che de 1 
CATH tt LL 
CATA " 0" 
DATA " D 
FEN Face de de 
DATA "  " 
DATA " : 
CATA "CO " 
FENM Face de de 
CATA "OO 0" 
4 CATA " Q " 
GATE "CO" 
FEM Face de de 4 
CGATA "Q 0" 
4 CATA " . 
4 CATA "0 CI" 

A BEM Face de de 
sd CATA "O0" 
FL k CAT “ (1 LL 
o CATA "OO 0" 
me BEN Face de ce 6 
64 DATA "OO" 
Ha CAT " \ 

44 CEATA "COQ" 
FE Foutine d'éentres Pour les 

valeurs du tables 

146 CLS Hd 
LA LOICATE #4, 1.13 
14 PRTAIT #44, CHE 14 1; 
1454 LIICATE #d.,1.1 
1468 FPÉINT #4, CHR ZA 


= 149 


r— 
nd 
T3 
it 


—J 


on 


RER EE mm 


Let Pa ee 1 LE 
Ro © © D D D © 


Fa la 


F3 FO Pi if 


CENRES 
154 


pi 


ES a Cat Sat at Lt E # 
EL 
ES 9 A 





1474 a$=THKETS 

1484 IF a$g="" THEH GOTO 1474 

1494 REM Touthe avec fleche ‘has 
enfonces 

1549 IF a$=CHRdé za AHD VPOSC #4 1413 THE 

H LOCATE #d4,1.WVPOSé#d45-1 ELSE GOTO 1554 

1514 PRINT #4," "5 

1524 LOCATE #d,1, POS #4 2 

1524 PRIHT #4, CHRSE 45 1: 

1544 FEM Touche avec fleche ‘Haut’ 
enfoncee 

1564 IF a$=CHRE Lans AND VPOSS #4 122 THEH 

LOCATE #41, POSE #41 ELSE GOTO 1649 

1564 PRINT #44," "5 

1574 LOCATE #4, 1, VPOSE #4 12 

1584 PRIHT #4, CHAGE 24 UN; 

1594 FEM Touche SENTERS entfoncee, 
Si valent Pas encore 
enregistres, elle doit etre 
rangées et le nombre de Points 
act calcule avez un 
SOUS-F ro granrie 

1604 IF a$=CHASC 159 THEH IF ieulirondel, 

MPOISE #4 11 EST THEM ieutérondet, MPCSC HA 

1] el: GUSUR 1824 ELSE GOTI 1464 ELSE GOT 

(1474 

LEA eut rondel, ronde epesultat 

1624 CLS #3 

16834 LOCATE #5, 

LédA PRIHAT #3, Mloneur 5 oneurEé ronde 1 

Mitiresunltat: "pointe" 

1654 BEM TnacriFPhion du resultat dans 

Le tableau 

4 LOCATE 4%, Létroncde LES, MPBCISCO Hé 4 

FPRIET #éoresultat: 

LOCATE #2 ldtrondel#s. 16 

FOR nel TO 14 

AA resultatf int rondel eresulta té ne on 

del +ieut rondel nt 

LÉLA HEAT 

1FEA FPEINT #éiresultatf io rondel ï: 
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ti O0 Mt 
D 
2 


eh jet bob bed pub 
TT M 
A RAN EL EE 


= 


9 —J D LM Be 


à 


DITS I 


DEXRS LEE 


be ob He job Hub fech jet jt jet Len jet 
© 5 10 DS © 19 Q9 9 © 


Les PQ re OL 


EE ms RE 
Ut D Et 0 D 
Ti 9 2 Fo) Fe 
D oi mi 


où 


0 —.} 


rs 1 1 


NIET 
= 
nx 


Be EEE + 


IT 
1 


Ti à 


ob Leb jeb T2 Leb pub 


in 


Eaù Fri 


Dctti to 
it 0 MS © 


Bb He jet Le be 
TE LR + 


LA ‘0 


ii 


£t 


uA 


ch LD 
Hi à 


DE 
DD + Où — 


Nid iy mer 
TT 
Et 

IN 9 it 


Un 
be i 


nl 
it 
Roi 
x] 


ri 


resnltatf int rondel ef 

af=INKETS 

IF agz"" THEH GOTO 1741 

CLS #1 

CLS #4 

LOCATE #4.1.13 

PRINT #4, CHERS 143 5: 

CLS #3 

FETLEH 

resultatsf 

PEN Sous-pProgrammes de Calcul du 
OH MECS #4 et GOSUR 1876, 1988, 1974, 


SAVE, 120, 2160, SCA, LES, L264, 2308, 


RETLUEH 
FEM Compter les 1 
Addition de tous les 12 
FOR el TO 5 
IF nombre noiel TMEN réesultatsresult 


HET 
BETLUEH 
FE Compter les 
CfHddition de tous lez 25 
FOR ni TO 3 
IF nombre nies TMHEH resultateresult 


HET 
FETURH 
FENM Compter les 3 

Cfddition de tous les 31 
FOR nel TO 5 
IF nombrelnies THEN resultateresutt 
HET 
FETUEH 
FEM Compter Lez 4 

Éfddition de tous les di 
FOR auz1 TO 5 
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EASA IF nombre nizd THEM resultatæresnltt 
at+d 
cg HEXT n 
2454 FETUFH 
REA BEN Compter Les 5 
St de tous les Si 
FOR z1 TO 5 
IF becs THEN resultateresult 


HET 1 
FETLIFEH 
FE Compter les 6 
Addition de tous les 62 
SLCA FOR nel TO 5 
CASA IF nombreuses TMEH rest tateresult 
At+É 
2144 HET 
ELA FETUEH 
clé FENM Test du brela: 
Si bréelan Points de Lous les 
cles. 
ELFA OI Croombiec À 'iemorahec 2 AND nombre 
BE renombhtees tt OR nombre 2 esomlnrec 0 M 
ER D 1 DC NE De ET LC ON CCS TT LT LCR ESP ET 
Te El 1 AHC: motte T1 dl. anne DL F on THEH FOIE 
ie. Ti Biresnltateresultat+nonmhreé ME 
aT 
2180 FETUEH 
SLA FEM Test du carre: 
AG IF Énonmbrec tenant rt AND rome 
tenorbtet AMD noie renom er DR 
Fe PE DT NE TD ED LL D EE 2 LE LOC TT ETAT DEEE TNT IA 
pe di AND rorbeet d revosraheeec 11 THEH FTIE 
med TO Sipesultatereeultat+nonmbpe( he HE 
Ton 
Bei RETUEH 
een FENM Test du Quinta: 
Chi dntcn A Points 
PESA IF nombres 1 enonmdbegc Et AND norlarec 
5 MNT MIT] 2 Es voor et 5 HU 
henordies Et THE resnltatesf 
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es es IQ ct O0 it 
es FO Li + LE 
RNRST EL TER ET ET 


Fi Pi Peu Fo Fa 























LE TE UTaT Le 
rorbiret à 





2c4n RETURH 
ecran RENM Test de la Petite suite; 
Petite suites Pointe 
ELA IF nombre 1 snombres st 1 AND nombre 
Cc'ienombre(c sil THEH resultatzst 
ECS IE nombre 2 ienombre(s ste t ANT nombre 


CS enombres diet THEM resniltatzsg 

red IF nombrers enombre( 4 1 AND nombre 
Ed ienormbre(si-1 THEN resultats5g 

sets IF normbre( 1 enonmbres di 1 AND nombre 
Cesenombre( soil THEN resultats 

Sete IF nombre enorme 4 1e TL ANT nombre 
Éd avons 1 THEN resultats s 4 

SEA RETLUEH 

Se46 FENM Tes + ce 14 grande suite; 


2sga IF anbre 1 =ehombr el: 23 AH vor 
Ce tenaraes sel AND nombres ie ncrbre( de 
1 THEH resultats df 
LAS LE norlec st enismhee te 1 AH orbre 
CS enotahret d eT MMD ncralirret donnees Eire 
1 THEH resultatz4f 
2307 IF nombres t tenonmbrec set HD ombre 
LS tenombrec de 1 AND nom se di noires 
1 THEM resultatedf 
“stA RETLURH 
Sue FEM Test Full House: 

FULL House 2 26 Psjute 
ESA UOTE nombres td enonmdbnesé 2 AND no mbrer 
Bis nombnres 41 AND LILAS ed nombres Es Or 
Énormbrels tt snonmbres st AND nmombrec rs te 
ret3i Pas mordre d nome 1 THEH PEL 
lhatest 
2540 RETUEH 
can ABeTNÉECESIE abat THEN GOT SSSG E 
SE PRTNT MSCC a: COTO SEA 


ta 
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Décodeur 


Ce jeu existe en de nombreuses versions, par exemple sous le nom 


æ Mtemind. 


Nous avons préféré le nom de Décodeur parce que notre programme 


s'éloigne malgré tout notablement de ses modèles. 


Vous pouvez tout d'abord choisir parmi combien de nombres-couleurs 
l'ordinateur pourra sélectionner les nombres-couleurs dont doit se 


composer le code. Vous disposez d'un maximum de 8 codes-couleurs. 


Vous devez ensuite faire un second choix: de combien d'éléments le 
code doit-il être composé? Il peut y avoir plus de nombres- 


couleurs que d'éléments du code mais pas le contraire. 


L'écran affiche après chaque entrée combien de couleurs sont 
justes et se trouvent effectivement dans le code mais aussi 
combien de couleurs justes ont été également placées à la bonne 
place. Les débutants en Décodeur auront certainement du mal mais 
c'est en forgeant qu'on devient forgeron. Vous pouvez à tout 
moment consulter la liste de vos entrées en appuyant sur la touche 


ENTER. 


Nous vous souhaitons maintenant de bien vous amuser avec ce jeu. 
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16 PEN Spor 
da REN Pre 








_LE_CPC4E4 


0] 
LA 


= 
1 


FEM Pres 
CI maps 
PAPER G:PFEM 
LHPUT "'Hortp 
SALE FE 

:COTO TA 

INPUT Hombre de chiffres C1 a Sn "fi 


D TE 
EURRNERSE ET 


sa 









CRUE 


1Ag IF 
JE der: 
LI Ir 
QT SD 





HE: 


norbpsgs far. la 
Se hazard FHAf 










FUIT EE 
doivent ét dif fete 
FÜR mel TI A 
BE pr MALE PTT Che ae pr. À Ut 
HET fe 

FOR mal TO ed 
IF sain THEN 
HETEHTRE 








GA IF PTE" THEN CLS:FOR zizi TO x:FRI 

HPPTentatise"s1; TABCE mar auee z1 13° 

DE: "inmoiré lu" pas OK: "iblame(zi a: MENT 
st: PRINT: GCOTO 298 ELSE TE LEE FUSS ere 

Cf dE ! THEH CGOSUE 466: CGOTO 2984 

“ins ee TO VALC FI 

1 H MALE MID FT ne Li 

IE ELU THEM og dinde cé one 








259 HEËT n 

260 FOR mel TO VALCFIE: 

OR mel TO VAL FI 5 

IF atniebem AND nm THEN blaneskta 








age cree le 


UE en Mauvaise Po 


RSR: 








à MEXT 
; DURS 


ete fé: BTane( z eETaune: 


= en bonne Positigni"in 





LAC. noie rite 
ME TMT : LHFLIT "Er 
, IF UPPER LE 
Lt RS END ELSE 











! FEIHT : PRINT" Entre De Lynn te DRE TR 
ET HR { 


LA 
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Réflexes 


Nous vous recommandons ce programme si vous voulez essayer de 
surprendre votre monde ou même pour le présenter à des personnes 


plutôt hostiles à tout ce qui touche aux ordinateurs. 


Le but de ce programme est uniquement de mesurer le temps de 
réaction: il faut appuyer sur une touche quelconque du clavier dès 
que l'ordinateur vous le demande. Suit alors une évaluation par 
l'ordinateur des réflexes de la personne qui vient de jouer et on 
vous demande alors si vous voulez à nouveau participer à une 


partie avec un maximum de quatre participants. 


Mais l'intérêt principal de ce programme est la façon dont les 
utilisateurs de l'ordinateur sont traités. Les ordinateurs, comme 
vous le savez certainement sont parfaitement stupides, ce sont 
seulement les hommes qui les ont rendus intelligents. C'est ce que 


ce programme a pour but de démontrer aux utilisateurs non-initiés: 


Si vous n'entrez pas de nom au début du programme, le CPC ou 
plutôt notre programme devient grincheux et prévient qu'on va 
casser l'ordinateur à force de faire des erreurs. Mais si les 


utilisateurs font ce qui leur est demandé, l'ordinateur répond 


‘mercil!'. 


Pendant le déroulement du jeu, le CPC surveille que personne 


n'essaye de tricher. Si quelqu'un triche, l'ordinateur lance un 


avertissement et une pénalité. 
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Non seulement le temps de réaction est affiché précisément, au 
centième de seconde près, mais le CPC vous dispense également son 


commentaire personnel sur les performances des divers joueurs 


('SUPER'...'très faible'). 


Sur le plan programmation, un jeu d'enfant. Mais ce programme 
pourra peut-être vous servir "d'excuse" auprès de ceux qui vivent 
avec vous en leur faisant peut-être entrevoir l'intérêt de l'achat 
du CPC H6U41! Qui sait, peut-être pourrez-vous en faire des fanas de 
l'informatique, ce qui serait bien sûr une belle réussite. Ceci 
dit, voici encore une application possible de ce programme: 
essayez de mesurer vos temps de réaction quand vous êtes dans des 


humeurs ou états d'âme différents! 
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Don MEN Cale 
EU PAR put TO 
FOR mel TO &:a 
HT me GOSUE 
Pr TE on 
FOR mel TO 
“Hé EN Sort 
HET nc 
Eva 
neFRIMT:FER 
& À ut Mir: 


Le 













LPRINT 
INT H 














Mu 








ee À y 
RON MT 





codes!" 
EN Evaluation 
F fénce. G0S THEN PRINT"S LU PE ER": 








1,1 THEM FRINT"Ties Hijgn" Et 


ni S THEN FÉINT" Faible": GUTO 





Conversion numérique 





Le CPC n'affiche pas les nombres uniquement selon le système 
décimal qui nous est si familier puisqu'il dispose également 
d'instructions spéciales permettant de convertir les nombres dans 
d'autres systèmes décimaux: &H placé avant un nombre indique qu'il 
s'agit d'un nombre hexadécimal, &X qu'il s'agit d'un nombre 


binaire. 


Entrez par exemple PRINT &HFF et vous obtiendrez la conversion en 


décimal de ce nombre hexadécimal: 255. 


Si vous entrez maintenant PRINT &X111, vous obtiendrez la 


conversion en décimal de ce nombre binaire: 7. 


Les difficultés commencent quand vous essayez de convertir 
directement un nombre hexadécimal en un nombre binaire. Il est 
mème tout à fait impossible de travailler avec un système 
numérique existant autre que les systèmes hexadécimal, décimal ou 


binaire. 


Nous avons donc réalisé ce programme pour vous permettre de vous 
familiariser avec les systèmes numériques. Vous pouvez convertir 
tout nombre que vous entrez dans chacun des trois systèmes en 
faisant précéder le nombre entré de la lettre H pour hexadécimal, 


B pour binaire, D pour décimal. 


Vous pouvez en outre en appuyant sur la touche ENTER, faire 


convertir le nombre décimal que vous venez d'entrer en n'importe 
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quel système numérique (base) entre 2 et 9. Cette conversion se 
produit d'un façon fort intéressante puisque l'ordinateur calcule 


devant vous étape par étape le résultat de la conversion. 


Comment celà se déroule-t-i1? Prenons un exemple: comptons dans le 
système numérique de base 5. Appuyez sur la touche ENTER lorsqu'on 
vous demande "Déc., Hex. ou Bin.'. Répondez 5 à la question 
suivante et entrez le nombre 230. Ce nombre converti en base 5 
sera "1410". 

Voyons maintenant comment l'ordinateur est arrivé à ce résultat: 
le système numérique de base 5 comporte les chiffres 0, 1, 2, 3 et 
H. Le CPC divise le nombre 230 que vous avez entré par 5. Résultat 
L6, reste 0. I1 divise ensuite 46 par 5: résultat 9, reste 1. 9 
est à nouveau divisé par 5 car c'est encore un nombre supérieur au 
plus grand chiffre de ce système numérique. Le résultat est 1 avec 
un reste de 4. I1 suffit maintenant de récapituler les valeurs des 


restes: 


1ère division: O0 2ème division: 1 3ème division: 
On pourrait effectuer une quatrième division: 1/5 = 0, reste 1. 1 


est donc bien le quatrième reste. 

En plaçant les restes de droite à gauche, nous obtenons bien le 
nombre 1410 comme équivalent en base 5 du nombre décimal (base 10) 
230. En voici d'ailleurs la preuve: 

1) 0*5°0=0 2) 1*5°1=5 3) 4#5°2-100 4) 1*5°3=125 


5) 0 +5 + 100 + 125 = 230 ! 
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Pour être complet nous devons vous préciser qu'il est possible 
avec le BASIC du CPC d'effectuer, sans notre programme, des 
conversions directes du système décimal au système hexadécimal ou 
au système binaire: il faut utiliser pour celà les instructions 
PRINT HEX$( et PRINT BIN$(. Par contre les autres opérations de 


conversion numérique ne sont possibles qu'avec notre programme. 


2163 


16 FE ae rer À LE 

CD RENM Programmes gle Pour Le _. 

SG RENM CoPyright 1364 CATA BECKER 8 
aires Lu: 

HAINE GG, L:IHK 1, Ed: TIME OT, Sdiemff 

cpma Let 

MA ON ERRQS GOT 416 

ER MODE 1 

PA REM Choix du systeme numerique 

Et LHPLIT Entre € Dose ou Bin "ia 

CIF VALLE ASIE SRSS TMEN GOTO 86 ELSE IF a 

eut THEH GOTO 164 ELSE bel EF TC ad, Lacs 

GetIPPERSE Hg IF be" THEN CGOSUE 3164 EL 

CE IF Eb="E" THEN GOSUE S69 ELSE IF Ef=" 

CUOTHEH ae RTGNTS#e a, LEHE ag 1 

GA RE Calcul des nombres décitmausx, 

Hivaires et Messe imans Fear 
La sortie sut ecran 
198 PÉTHT:FRIMT "des ira binaire 
héesacezitmal" 


Î 18 FE JT HT L0 us mt cn00 tu tué oo dns ones tie ut bn aus os Ré ta st it 06 Loue rat mat on mal due ét mot mé cn sème 


vt0te sue 070 em 10 dhtns 20008 net 00060 ones 


120 PRINT a$: TRES" 

134 LRETNSE VALE 46 3, 16%: PRINT LEFTSCE,5 
ni" Mi RIGHTS, 80 
148 FRINT TBE SE 3 HEC MALE a à d à 
154 PRINT PRINT: GOTO 84 
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CA PÉTHT Hors sic; 
Mo dk MOD a 
FRTHT TAB 15 33 "MOD: "; 
LEE T GE ST RNRE 6 1, À + ah 
a THEN ae STE citag: PRIT: 
‘28 PRINT: FELMTEFEIMT:GOTO 155 
ET "GE JTO : eu 39 















gt core Er Le 
ae ts st ses 
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THEH RE Tr: 
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47A ER 
448 PEH effet: PRINT:PRINT TAEC123 "Entre 






DOSUE Abd: RETUEH 
| # Eur Une 
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APT FHeINKE" 
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Désassembleur 


Les programmes Mémoire 1 à 5 ainsi que le programme de références 
des variables nous ont déjà permis de pénétrer un peu dans les 
"secrets internes" du CPC. Par secrets internes nous voulons dire: 
comment celà se passe-t-il quand un être inhumain tel que 
l'ordinateur arrive à penser. N'oubliez jamais à cet égard qu'un 
ordinateur ne peut jamais être plus intelligent qu'il n'a été 


programmé. 


Les programmes Mémoire 1 à 5 ne nous ont cependant pas permis de 
rentrer suffisamment à l'intérieur de notre CPC. Nous n'avons en 
effet pu qu'examiner comment nos programmes BASIC sont stockés 
ligne par ligne, instruction par instruction dans la mémoire de 
l'ordinateur. Mais nous n'avons pas réussi à savoir comment 
l'ordinateur traite ces instructions. Nous avons notamment indiqué 
à cette occasion que le CPC, comme tout autre ordinateur ramène 
tout à l'alternative la plus simple, éteint ou allumé, oui ou non, 
0 ou 1. C'est en effet seulement à partir d'une suite de O0 et de 1 
que l'ordinateur arrive à reconnaître un caractère ou une 


instruction. 


Notre BASIC est un langage de programmation évolué: il est en 
effet structuré en un nombre important de mots intelligibles 
(surtout quand on comprend l'anglais). Ces instructions nous 
permettent d'avoir beaucoup plus facilement une idée de ce que 
peut faire l'ordinateur que si nous ne pouvions entrer que des 0 


et des 1 dans notre ordinateur. 
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Le code assembleur auquel s'attaque ce programme constitue une 
étape intermédiaire entre le BASIC et le langage binaire de la 
machine. Nous disposons ici d'u nombre encore plus grand 

d'instructions (le processeur Z80A du CPC possède plus de 600 
instructions) mais ces instructions sont très loin d'être aussi 
puissantes que les instructions BASIC. Ces instructions occupent 
1, 2 ou 3 octets en mémoire. Le programme 'Désassembleur' connait 
tous les codes assembleur du Z80A (ces codes sont aussi appelés 
mnémoniques) et il recherche dans la zone que nous voulons quels 
codes il rencontre. Il recherche pour celà s'il rencontre des 
suites de valeurs déterminées (de même que notre programme Mémoire 
recherchait le mot ‘Examen'). S'il rencontre ces suites de 


nombres, il écrit le code assembleur correspondant sur l'écran. 


Comme nous ne pensons pas que vous allez vous mettre à écrire du 
jour au lendemain un grand nombre de programmes en langage- 
machine, nous avons intégré une fonction pédagogique dans notre 
‘Désassembleur': la ligne 3530 contient en effet une instruction 
DATA suivie de nombres hexadécimaux qui constituent un petit 
programme en langage-machine. Ce programme calcule le résultat de 
deux nombres et le place dans un adresse déterminée. Vous pouvez 
regarder comment ces nombres se transforment en un programme 
assembleur en répondant, une fois le programme lancé, à toutes les 


questions en appuyant simplement sur la touche ENTER. 


Vous pouvez aussi écrire d'autres nombres (uniquement en format 
hexadécimal!) dans cette ligne DATA, par exemple si vous trouvez 
dans une revue d'informatique un long programme en langage-machine 
pour le processeur Z80A. Vous pouvez d'ailleurs écrire plusieurs 


lignes de DATA si nécessaire. Amusez-vous bien! 
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1A FEM Desassembleur 
En FEM Proûrammes Basic Pour le CPFCdéd4 
34 REM CoParight 1954 DATA BECKER #& 
Fainer Lueers 
44 CLEAF 
29 REM Liberer 143 zone memoire a Fartir 
de ASFFE Four des proutines 
en lanaaÿe-machine 
MEMORY 4SFFS:GOSUE Sd 
DIN 1$6 209, El ESS net me: sus] 
GOTO 1264 
MOCE Z:ceM:PFRINT TABSSAUUX € # Desas 
mhlenur Z-S4 # € #" 
46 FEN Ceterminer les souhaits de 
l'utilisateur 
11 PRIHT:INEUT "Titre "if 
124 IF LENCFRISA THEN GOT 114 
134 FRINT 
148 FREM Adresse de depart de la routine 
en lanGage-machine stockées 
en lignes CATA 
ds IHPFLIT "Adresse de defart Cen dec, 2)" 
IF aff OR ass THEH GOT 134 ELSE 
1É a=9 THEM az #3 iFré 
164 THPUT Adresse 
H 
175 IF bée OF Hess OK ke THEH GÜOTO 1 
Et ELSE IF be THEH bazconmetenutr1 
FRIHT : THPUT M at-il des zones de d 
es CU 1 Mi 
130 WBELEFT He LPPERSE SE LUE Ba NO THE 
GOSUE 144 
A4 FRIHT:IMEUT "Tmbrimante ou Ecran T4 
1 MS 
el FEM Determination de La variable 
druki Qui fire le tale de sortie 
ae PRINT : 
Be imbrimantes ei ecran 
BEN béeLEFTSCUIPPRERSEE ESS 1, LOUTE He NT THE 
H drubiss ELSE druki sf 
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re LU , 


LD Où 4 
22 Z 3, © ARRET EX 





a de fin en dec, 5 dE 


es PRINT #drubi 

249 FEM Titre aPParaissant en milieu 
de Lire 

CSA PRINT #drubi, TABCCSG-LEMC #2 1 

CHA FÉIHT #drubi 

F4 REM Debut du desassembleur 
Probrement dit, Lecture 
de la zone de la memoire 
indidues et interfPretation des 
donnegs en MASeMONnIiqUes 
d'inetructions én lama e-mach, 

es Que 

234 HISINTS a 496 ee IMTÉÉ a-bh1#4496 

Ft 

BAG LISINTEE ab l F4 MAUE-HAELEE 116 

BAM mal EdAsée Hesse TIKIE 

BAG IF mé TMEH GOT 344 

334 GTI 344 

SAM IF absacni AND afebcni THEH GOTO SEA 

354 GOTO 334 

SÉQ dePEEKC a 1: GOSUR SRE : Fes OU FT be Mg 

ff" QT] ge OU fe À BC en: 1 GE 1 OATA" 

GPA IF asbhini THEN nent mere 1 GOT 4 

GOTO AA 

1 AeFPEEKC a: CGOSUE ESA 

ed: GOSUE 2745 

chti: Abel 

IF h1iè=<18 THEH GOTO 564 

1 HIiheS TEE Hi His “HIDE 1, CS 

IF he ein THEH GOTO 576 

FA HÉHESTREE HE chez MIDEC h2S$, él: 

IF lis THEN GOTO 5364 

LIBESTEGE TA 1: 1 LBEMIDEE TIR, EE, 

A IF 1£2%e14 THEN COTO 44 

14 LEÉGSSTERC 121: lESeNTOEC ES, EX, 10 

RENM Sortie de la zone de La Fa Frc 1 Es 

dusassembhler 

Ed qtegt4liIF ALIAS THEH GES: FOR qial 

TO S:PEIHT Hadrubi:MEËT qi: GOSUR 44: eu 
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ri na 2 fo 
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HT #drubi:GOTO 514 ELSE PRINT #drubi,4il 

EH dh$+d1$+eh$+el$+fh$+fl$+ghf+g1$ 142; "0 

ctets";iTABC 185; 

Je PRINT #drubi USTHG " LOIRE Paris 

ES. 11#%,12%; : PRINT #druki." 7 

3 FRINT #drukbai, USTHG MIO 0, 4h, 

d1$.eh$.el$, fé. F1, hf, 21; PRINT #drub 

1. TAEE SG 5 166 di 

254 a=3+1:cec+1l:IF a%=kb+1 THEH GOTO 644 

244 IF SH$=UT" THEN 146 diet 

Jef GOT 249 

SE eh1l-144+65 : ble CHA 4 5: GOT 4 

arf x=he— 10465 : h2$=CHRGE 4 1: GOTO 4 

ae x=1l1-1H+65: Dr CHARGE 4 1: GOT 4 
a Me l2= 10465: EB=eCHRSE 4 0: GOT 

fi PRINT : PRINT ME Æ Sortie termi 


M if 


FEM Demander s"11 Faut recommencer 
FÉIHT:IHPLT M'Encokre une fois EC n " 
HBELEFTECUPPERSE ES 1, 1 1 

IF Hz "CO" TMEH ELIH 

EHD 

IF dééd OF diier THEH GOT F1 

IF de115 THEH FETLUEH 

Ce TMTE de16 elec dhEle 

“4 gel AND Fifatéd AWD 56e 

166 dis" ME Fu nt 

LE diet dit je a: GOSUR 3368 : FETUEH 
IF GET OR déiOi THEN GOTO #56 

che TNTÉ LE M died ARRETE 

Gel AND Fifa AND LE Et 

IF fe THEH id = "Ann A," 

IF f=1 THEH iécdi="fADC A," 

IF Fa THEH DC im MEllE ‘ 

IF fes THEM 1646 cdiz"SErc A," 

IF Fed THEH ie die "4Ht ! 

TF THEH ie die ER : 

IF THEH ie diete :! 

IF THEH 1$6 diet L 

i$C de LC A4 ie à 1: GOSUR GSSE : ÉETUEH 


-170- 


Ti 


D D © 0 © RO D 


im 
A 


»7 
mnt 


es 
_ 


AR 


Fat ee Qi LE 
ini 


I : 


— 
_— 


EX | 


27 | 
Ne 


Be 1 0 
—+, 
j 
j Fa 


0 OÙ JM LA Be Li 


He | 

mnt 
Ou 
12 


Pi re : 
Din 
ee D. 
HO 
ü HR EAN EE : 


px 


ÉD D I Se Pi Ti Tue 


IF hldi=i THEH 
IF blidize THEH 
IF Ei£dies TMEH GOT 
IF blédisdg THEH GOT 17F4 

IF dei OR dent THEN GOTO ESA 
GOEUE Sr RETUFH 
asa+l:2ePEEKS a 2: GOTO 314 

3=a+1: z=PEEKC atasatl:2ls PEEKE a 0 
vez: GOSUE Fa: ehéshé:elhals 

IF blédies THEN GOT 94 

GOSLUIR 3398: GOT 354 

Mer QOSUR 246: FHhéshé: FTHETÉ 
Pier hiE+Sl tente lp eSeehhhe le : 
! Lun aligs"" 


GOTO & 
GOT 


(D 0 © 
JD D 0 
SES ER) 


DO UNI EL 


2 D ID D 0 0 0 OÙ ON D 0 0 M 
: D D D ee © D 0 © D © © 


ci iilje 


ah 


4 Fed AND Fed AND 56: qu 
IF feé AND € AND 184 a THEN GOT 1 


D FO D ID 
LU Ut TIM 


mini 


IF fes AWD cd AHO 
RE) 

Aa IF Fed THEN GOTO 1274 

1GG4 IF fef AND Caire THEH GOT 1748 

1414 Hess ie" HL, "+p1S 


132 1=19E 


THEH GTI 


1520 


Le 
a: 


Po se 0 Li 0 M EN Bi 


nt € 
int 1 


ri 
= 


=, =, 
Fe 5 
A EE LA à | 


Re 
1 


2 © 


IE 19 


D ii 


1 
al i 


it 


1 
ii 


AU IR es pen Bet nb Feb ed job pet pes 170 


Dex 
1 


Pa ND O0 = Pi EN Ee 


Let Heb ed feb ed Heb job euh fe Je Je Jet Jet je job Reb jet 


É 


r 
i 


1 


igce 
i$t & 


ie 
ie 
LHC 
ie 
1#c 
1€ 
ic 
i$ 
+ 


1% ÉYLA EE 


i ge 
1$ 


LEE 


i$e 


34 =" 
SG =" LC 
195 =" IP 
"LC 
254 =" CP 
42 "LC 






49 ="L0 
17 3="LD 
16 se MCLIHE 
"LD 

4 ee MAO 
1e ACC 
a "OUT 


As 
15 


2 






45 1e" CALL 


Ct+pig+" 1, AL" 
C"+pig+" if" 
"+618 
USE 
Fi: Ê 4e 1 CERN DE 
M4 
HL,<"+p18+" 2)" 
SP, "+p1$ 
DE, "4p1# 
"+p 2 
EC, "+F1% 
A, "+ ES 
A."+p 26 
"+p a+", 
"+p 2 
A, "+2 
A: "+p2$ 
"+pzé 
"apr 


A" 


1214 146246 1e "CR Sr: 

1224 RETLEH 

LEA 16 diet L 0 M TRE QE, Op ZGiRE 
TLIFH 

1244 IF 9% THEM ice ein Hp Th : 
FETLRH 

1e 5 Der EL PPT DE L'EC (a PE JF: ET DA 1 4 . + 
PES: RETLFEH 

1264 1$6 die" IF Mae en Rp TRE 
TLIFEH 

LEP ie die "CALL Ms Re A ER RE 
TLIEH 

1284 FOR s=9 TO 63:blés 
1294 FOR 22192 TO 29S:hléai T 
1364 BIKI18 #1 qipiee bled ie MCE = 
HILL? siblé ed ele SG ess le Saez: ble 
SE SE DC 4 ee à HIé 46 et thé dé et ble Sd 
E HI SÉeE 

1310 RICE ex: BIS IRErD 

ICE IISESE RER 








Fe Qs NE": je LC jé 2e" D": 4e 70 
d A NES © DE LT F5 HE ni LL 

itt RES EEE TE EL 

EE 1 UT Al 1e EL D } nn LUI ee ET ET 
OS SCPI ESCS PEN se EURE 


rE PTE HAL. pe ie AOC 


1H PC Te "SEC Hope Se AOC 


=172 


1394 Pr d 1e"CEC 
HL." 
14G4 pe 7 =" AOC 


(1 te" BC": née 2e 
éFie"sp" 


1424 LS Aie"H": 
PDSRETT ER DL 


1454 oc Ge NT, 4 oc 1 ie", A" 


o$é Sie", EN 


1$.12="I" 


HL, "PSC Se" ACC 


HL., "ne Que "EC on 


"DE" 
1416 né 3e "DE" ne die LU nc 


Se"HL' ing 


me Q 1e A he 2 à 


o$e sos" A, I" 


1444 4$6 9e "L D: ge 1 is "CP: g6e cos" IH": 9% 


{33="OUT" 

1454 166 = "HOP 

Mie ae" TMC 

1469 1$673="RLC 

AF,AF°" 

1440 14e 4 =" AD 
HEC A" 

1464 14e 11 "DEC 

1494 

HC 


1 Fe 


Bi="L D 


DE " 





jac as ve [NC 
1S2 A jh TS 
Li ie di 





"GET 


LA 14e dé am "CPL 


1053 4="SCF" 

1546 1665 2 "ACC 
C EP": 
13 164 43e" DEL 


1 

ie 

H EC 
1 


gp" 


is 
DE" 

1H 1e rl 

LEH" 


: À à 


i$e 


23 3="RLA": 


3 = "OA: 


ifé 63 
{8e LAPS "RET 
i$i 1993 "RST 
BAT I "RST B 
AE Ye" RET 


ta MPAIEH 


B5e"LD 
EC" 


CECY.A 
A": igC Se "EX 


HL.. BC: BC 14 "LD 


BE": ie 15 = "FRE 


DE A": idée 19e" 


166 25 1e "A0D 
DE" 


CE: GEST IE "RRAM: 


HL. D 


_ no 


HI LL 

i #6 41 =" ADD 
HL" 

51 =" INC 


HL.H 


EL Lo SRE 


HL, SP": ic ag "DE 


Des MOCE" 


PL 


MU SL BE LE Je PPUS 


A": ic PGA IeURET 


HO: ic 249 = "Pr 


DE": 1$E 215 4="RET 


sis 


16064 160216 4e "RET : 180 225 = "RIT 


15H" 


nd 
TM 


CSPIsHAL" 


ge 


FE" 
1638 i$(233)e".P CHL D": ie 
# DE, HL" 


Eu 


GA 166231 2= "PRET cpH":ifeesz 


14 1$6 224 = "FRET PO: AIG ZEr 1er E x 


de" RE 


CHE 


1640 166 239 = "RST SeH" ie diet RE 


4 


Fo" 
1620 160241 = "RET" 


1664 164241 3="PÛP HF": i$C ads =" DT" 


186 245 =" PLIEH AP." 


16F4 i$6 247 = "RST SAM: ie 2 EURE 


T M":i$c2sS12e"ET" 


1664 1% 249 ="lL rt SF, LS GC ESS 1e" 


SEH" 
3Q 166197 = "PLISH EC" 


FE 


Ni 
= ‘0 … 


i$ 225 =" FOR HL" 
if C1rIe"ERk" 


16 115 3="HALT" 


Lo Pda 


mie he he Tirer 
SSD 


HI NN 


Eu 


M+ige li lEl+LHEXT dd 


he 
TJ 
1 


PHOTO ISLHLHEXT d 


Fu 
er 
M 
D 


A":GOTO 94 

SAS THEH GOTO 1F 

eur THEN GOTO ZS 
asa+1:zePeEES a 

ne 


x! 


F1 


"HE 
ED 





D QD -J ji 
2j Fe a 1 Li E —J 


9 © “5 NE LS AN EUX ET) 


HEH ie die"ELC 


D ETS IA 
EE 


Eu 
D 
Lt 


F=1 THEH 146 dia" peRt 


Nr Trnmmemmrn hr 


ra 
Es 


-174- 


=IHTÉCel AND Ge: fat ehEs 


A 16019532 "POP EC": $C 229 Ne" PUS 


leG:FOR des TO 45 STEP 8:1i$6 dia"DEC 
Le@:FOR deg TO dd STEF 6:66 d'ie"THC 
166 64 = "THE HA": 1% 61 2="DEC 


ANG F 
ï: GOSLI 


":RETU 
":RETLI 


1854 
EH 
1564 
FH 
1474 
FH 
185 
FH 
1494 
FH 
1444 
1916 
11 
19:49 
15411 
1554 
LEE 


SAC 
241 6 


Ets A 2 
PL Re 
ef A 


pa DT 


CAES 


AE A 
are 
a 
SA 








IF f=ë THEH i$é die"kL 
IF #f=x THEH 166 diztre 
IF feed THEN 46 die t"EL A 
IF fai THEM ie di "SR 
IF fer THEN 16 di SRL 


Fat AND Fe CHR GE Pt 
if die" SET PEPRESS 
Fat AND OF: Fe CHARGE F4 
16 dis ETT ou 2 Ce 
Fat HD FER CMERC + 
LEE ASURES Le DLL ÿ 
IF ehss1@ THEH GOT 245364 


":RETU 
":RETU 
":RETU 
":RETU 
":RETU 


5 AND fés1s THEH GOTO 1944 
16 AND Fées THEN GOT 1364 


M RETURH 


"RETURN 
RETUREH 


etes TRSE el ie ele TDi gti, 7 4 


IF elïe14 THEM GOT 2444 


Se TGeETRGE el 1elGeMIDC el, E, 10 
GOSUE 398 : 14 dieife dotée sg à: RETURH 


mets ebres CHERE 4 4 GOT 
me T4 6 THeCHRSE à: GOT 


AA 


Te Del 
Las 





IF cl AND Fe TMEN GOT ZA 
IF cl AND ad THEH GOT 2 GE 


GQOTO Sea 

se AH GE 

als 

A a AND ie THEH 14e des 

PETITE PETER 

GOSUE GS: RETLUEH 

MEN Sous-brogréamme Eau 
cape ta di 
du des. 









2 vones de 1] 
np | 4 


re] 


INPUT Adresse de delParts 


"OEC 


ge Litres 


A Memoire 


Miatn 


INPUT "Adresse de fine"ihen 


-175- 


2174 IF afniéa OR bonièb THEH GOTO 
2168 IHPUT "Encore une zone de don 
RP ET: 

LISA vhELEFTS#EUIPPEREE 7 1, 1 


2154 


nees € 


cega IF v$=<"0" THEN nentl:GOTO 2154 


2214 man:nel:RETUREH 

See IF de2r1 THEN v#="IK": GOTO ZX 
LA GL'ER IT" 

Led a=a+1:zzFEEKC a 0 

AA IF es THEH GOT 664 

See IF ze" AND zé=194 THEH GOT 
2eFA IF zeS5 OR zeïd OR zzdZ THEH 
43 

ÉceR IF 7257 OR 7253 THEH GOTO 
a z=5d4 THEH GOTO 2594 
LS ver: GOSUE Ed: ehbzhé:eléelé: 
2314 IF ze THEH i$é die" ADD 

"EC" 

23e IF ze2s THEM if d'iz'"HOC 

" DE LL 
SE 4 THEM fé d'iz"THT 
THEM ie cs "ACID 





3 THEH i$c dis "UE 


2350 IF z=43 
22567 THEH ic de" ADD 


co6f. IF © 
"n : SF " 

csrA IF ze225 THEH 1% d2= "POP 
Ets) rsser THEN 1 ist 


3 THEH i$6 de" PUSH 
3 THEM igc die" JP 


THEH 16 diet D 





244 FETLEH 

c4sA vez: GOSUE 2 4fi 

2444 ehbshéhielhels 

SA ama+l ris PÉEKRS a rue]: COSLIR 2 
LEA fhéehf:flhelh:amat+l 


-176- 


34 


4a 


2514 
GOTQ € 


GOSUE 
DENT 
de ++ 


TTL: 
LEE 7 


+ 
“ ++ 


L +, 
CSP 


SET 
RETT 


SP," 


748 


24rA zisFPEEKC avez: GOSUR 2749 
2489 Shbshé:a1$=1%$ 
ea IF 2233 THEN if das"LD MATE ES 
","+ahé+alé+fhé+el$ 
SOA IF zzïd4 THEM 1$%6diæ"LDO "+9 
H+ALE+FHEHE TEEN, Ms 
sal IF zed2 THEN 16 d'is"L D RTL, 
PRE TEE CRE EST LES EE EE 
Sac RETLUEH 
2530 vez: GOSUB 2748: eh$=h$:el$é= Ee 
ESd4A asatl:zlizFEEKE acer]: GOSUR 2744 
ESA Fhéehé: FThelS$ : hat a Ten" 
CSG IF eût THEN jé dm THC Etes 
ie M FER ET A OU 
BSPA IF zeSs THEN je dite CET 
LE, PRET ILES SET 1" 
cas RETURH 
ESA ver: GOSUE F4: ehbzhh:elbelS 
GE aza+l:zisPeEKC a ue  OCOSUIÉ Er 44 
14 hab: FT Th: amatl 
EA zizPEEKS a cwerl:GOSUR rad 
SA Ghéshé: 11% 
48 ie die" L0 Ft OP EE TE + 
4 "++ 
FETLEH 
aa +1: ehbeCHRE Er ele CHARGE ÉE 2 
MePEERS a 1: GOSUER rfi 
FH: FT TS 
aa +1: TÉePÉEK( a coms AND 248: cms E 
gate DE RE CNE ES SOL ET NE TON PU 
so GOSUE 18564 
Li disi fé dit 
Mere: QOSUER 274: ah#ehé:alhe1@:EETUR 


CE | 


hDhMmM 


ET IR M Mi 
ca : 
ES Si 0 0 © CE 


A 





2744 HeINTÉ 162: leu Été) 

Cr TE hisif GOT SF 

ECEG HBSESTESE HE BST OSRE HE, 12 

Der IF 1èsi THEN LOTO Se 

Dre LEESTRSE lt EMI 16,2, 1 2: RETUEH 
Brosses: hbeCHRGE 1 1: GOT FFE 


=177- 


BABA le l4Se: lé CHARGE 41 1: RETURH 
ER 18 Mer: GOSUE v4G:eh$ehé:elé=1$: ghz "" 

Q1$=" LL] 
2820 amatl:zisPeEKE a 

LOS vezl: COSUR EF4G:fhéché:fFlé=lé 

Sadf IF zzi2é THEH i$e dix "LD A,6" 
Hg + FREE RETLEH 

a Far AH di 
A IF pai1r THEHW GOT 2944 
1 IF FielSS THEN GOTO 2424 

Paz AHD Séiper'é: GOSUE GES 
1% d ns [ DE TeL EU L É EP TPL'E ME RE TE 





AA Far AH. 4 *GOSUE Se 
S910 186 die" L rt CE OP ET + 
Mu +: RETLUIREM 
SUSA Paz AND Gé:pep 8: COSUR 3294 


À HE es À RE Qu EM PT 





2049 FETURH 
ESS ama+l :z2ePEEK( a tivez: GOSUR 2744 :ehk= 
Pre Le 





D 





1 
é LÉ HO GOT 51 
2a0a IF foire THEH GOT 31 
SAT IF fel£d4 THEH GOTO SI 
SAS fer AND Géifefshioez MND OS 
SEA IF Fes THEM éd ie" EpC His SR? 
: RETLIEH 

Sad TE get THEH $C die" TH TRE 
APCE: RETURN 

SAS TR Gel THEH ic dis POLIT CL" + 
i$e F1: RETUEH 

SAÈG IF Gaz THEN 1% dep hé ft ne #1 RETUR 
H 

SArA IF gd THEM Se A ie HEG US RETURH 

SAS TR Ge THEH 146 dis MRETMATS&C fe BETUR 
H 


it 






-178- 


SASQ IF e6 THEN i$6 die" IN "érge fi: 


S1Q8 IF Gés7 THEH 16 die"x # Æ'UIRET 

8114 IF fées THEH GOTO 3159 

3129 IF fz4 THEM 166 de"RRO":RETURH 

3124 IF fes THEM 146 de "ELO'C RETURN 

3144 GOTO 5184 

5154 166 dise"LD Ho fi: RETUR 

s1én 186 disqge QUI RETURH 

Sr 16e dise QG 40: RETURM 

AIS ie dis q$( QU TRI: RETUREH 

3194 1% deg +" DR": RETURH 

SEA aza+l:zisPEEES avez l: GOSUR 27 

beh$:fl#els 

Sel aza+1: ris FEERK( avez l: GOSUE Z7 

‘a1$=1$ 

ae obéit lG+f ht TE 

A IF zeéf THEM #6 die"Ln 

3, ECM RETUREH 

sé IF 2er THEH 186 de "LD 

+49%+" 3": RETURN 

Sen IF ze THEM ic die" D 

+", DE: RETURH 

Gé IF zeh1 THEN i&c die"Ll 

+ a+" RETLUEH 

sera IF ze115S THEH 16€ die"l 0 

a+" SP RETUEH 

Se IF zei£s THEH 1$€die"LD 

Hat" ts RETURH 

2294 IF P<G THEH 96e "pige die "ADD 
A4" 

SA IF Pel THEH g$e"0" ge die" ADC 





SSID IF PS2 THEN aé="D" : ie die" GE 


Sen IF PES THEN Gerets ge d'ietepe 


3359 IF Pzd THEN ga "Hs ie de "ANT 
as IF pes THEM gallois UECIR 


-179- 


RETUR 
LIRH 


H 


44:#h 


44: SH 


DS IF Pe6é THEM Ge "CEE": 1e die "OR 


2360 IF PES THEN gba" ii dis "TP LS 
3GSFA RETLUEH 
HE ee ON es Te OU OUT a Ga MU: 
az" RETUEH 
3394 fhés ti flpae "ts ghetto QTpae tt RETURH 
SG PRINT #drulbi:RETUEH 
ad14 PRINT #Kdrubi:qtef:suzt 
3424 PRINT #drubki : RETLUEH 
454 FEM Fin de la bHibliothedue de 
BOUE-PrUOraMMeS Four Crest 
le code assermtkileur 
GA MEN Werifier le nombre d'octets 
Centres en hexadecimalt a 
desassemtk ler gen Tignes CHATA 
454 OH ERROR GOT 3544: FOR compteur leds 
Fr TO Se ÉEAC a: MEËT combtenur 1 
2464 MEN Lecture ProlPrement dite des 
donmees en lignes DATA @t 
ecriture de ces donnees 
a Fartir de diffé 
PESTORE : FOR mea ré TO corp teur let 
SA RERO 4% 
SGA as VALLEE RH" 42 
44 POKE ma 
HET pas PÛIÉE rs OS 
FETLIEH 
DATA Ge. @4, Gé. Gr, SE, A4 cd 
FESUNHE 34764 


: 





ANNEXE 


Les tokens du BASIC du CPCH6H (voir Mémoirz 1 à 5) 


128 AFTER 129 AUTO 130 
132 CAT 133 CHAIN 134 
136 CLOSEIN 137 CLOSEOUT 138 
140 DATA 141 DEF 142 
144 DEFSTR 145  DEG 146 
148 DRAW 149  DRAWR 150 
152 END 153 ENT 154 
156 ERROR 157 EVERY 158 
160 GOTO 161 IF 162 
164 KEY 165 LET 166 
168 LOAD 169  LOCATE 170 
172 MID$ 173 MODE 174 
176 NEXT 177 NEW 178 
180 ON ERROR GOTO 0 181 
183 OPENOUT 184 ORIGIN 185 
187 PEN 188 PLOT 189 
191 PRINT 192 

193 RAD 194 RANDOMIZE 195 
197 REM 198 RENUM 199 
201 RETURN 202 RUN 203 
205 SPEED 206 STOP 207 
209 TAGOFF 210 TROFF 211 
213 WEND 214 WHILE 215 
217 WRITE 218 ZONE 219 
221 à 226: — 

227 ERL 228 FN 229 
231 SWAP 232 @£ 233: — 
235 THEN 236 TO 237 
239 » 240» = 241 
243<= 244 + 245 
247'/ 248 À 249 
251 MOD 252 OR 253 


BORDER 
CLEAR 
CLS 
DEFINT 
DELETE 
EDIT 
ENV 
FOR 
INK 
LINE 
MEMORY 
MOVE 
ON 

ON SQ 
OUT 
PLOTR 


READ 
RESTORE 
SAVE 
SYMBOL 
TRON 
WIDTH 
DI 


SPC 
USING 
< 


X 
XOR 


131 
135 
139 
143 
147 
151 
155 
159 
163 
167 
L71 
175 
179 
182 
186 
190 


196 
200 
204 
208 
212 
216 
220 


230 
234 
238 


246 
250 
254 


Avec le "préfixe" 255, on a les codes suivants: 


ABS L 
CINT S 
FIX 9 
INT 13 
LOG10 17 
SGN 21 
SQR 25 
UPPER$ 29 
à 63: — 

EOF 65 
PI 69 
YPOS 73 
BINS$ 114 
LEFT$ 118 
RIGHT$ 122 
TESTR 126 


ASC 
cos 
FRE 
JOY 
LOWER$ 
SIN 
STR$ 
VAL 


ERR 
RND 
112: 
DEC$ 
MAX 
ROUND 


10 


18 
22 
26 


66 
70 


115 
119 
123 


ATN 
CREAL 
INKEY 
LEN 
PEEK 
SPACE$ 
TAN 


HIMEM 
TIME 


HEX$ 
MIN 
STRING$ 
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67 


116 
120 
124 
127 


CALL 
CLG 
CONT 
DEFREAL 
DIM 
ELSE 
ERASE 
GOSUB 
INPUT 
LIST 
MERGE 
MOVER 
ON BREAK 
OPENIN 
PAPER 
POKE 


RELEASE 
RESUME 
SOUND 
TAG 
WAIT 
WINDOW 
EI 


STEP 
TAB 


> 
242<> 


* 
AND 
NOT 


CHR$ 
EXP 
INP 
LOG 
REMAIN 
SQ 
UNT 


INKEY$ 
XPOS 


INSTR 
POS 
TEST 
VPOS 
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